codice:
Dim conn As New SqlConnection("DATA SOURCE=<server>;INITIAL CATALOG=<database>;UID=<user>;PWD=<password>")

Dim cmd As New SqlCommand("sp_fkeys", conn)
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.Add("@pktable_name", "<Nome Tabella>")

Dim da As New SqlDataAdapter(cmd)
Dim dt As New DataTable

da.Fill(dt)

da.Dispose()
cmd.Dispose()
conn.Dispose()

Console.WriteLine(dt.Rows.Count) 'Numero di righe ritornate
For Each row As DataRow In dt.Rows
'Ciclo le righe
Next
dt.Dispose()
Aggiungi Imports System.Data e Imports System.Data.SqlClient in alto