Ciò che ho fatto è pressapoco questo:

'Dichiaro il DataTable
Dim EmailRef As New DataTable()


'creo una connessione al Database
Dim objConn As New SqlConnection("Data Source=.\SQLExpress;Integrated Security=True;User Instance=True;AttachDBFilename=|DataDirectory|Data base.mdf;")
objConn.Open()

'chiamo la procedure
Dim objCmd As New SqlCommand("YourCompany_GetIndirizzi", objConn)
objCmd.CommandType = CommandType.StoredProcedure
'parametro da passare ricavato dalla stringa inserita nella TextBox1
objCmd.Parameters.Add("@Nome", SqlDbType.VarChar, 50).Value = TextBox1.Text

' da è l'adapter, permette di raccordare i dati nel dt (datatable disconnesso)
Dim da As New SqlDataAdapter(objCmd)

' riempio il datatable
da.Fill(EmailRef)

' chiudo la connessione (non mi serve più)
objConn.Close()

Dim riga As DataRow
For Each riga In EmailRef.Rows
Console.WriteLine(riga(1))
Next


quindi il Datatable dovrebbe essere costituito da una sola colonna....

purtroppo mi segnala un errore dicendo:

Cannot find column 1

a cosa potrebbe essere dovuto?
probabilmente il codice scritto non carica il DataTable