Il chiamante:

codice:
Dim objCn As New SqlConnection("Stringa di Connessione")
objCn.Open
Dim cmd as New SqlCommand("SELECT * FROM Libri WHERE IdGenerale=" & Generale & ", objCn)
IteraDati(cmd)
Il codice chiamato:

codice:
Public Sub IteraDati(cmd as SqlCommand)
   Dim dtLibri As New DataTable("Libri")
   Dim da As New DataAdapter(cmd)
   'Recupera informazioni sullo schema della tabella 
   da.FillSchema(dtLibri) 
   'Riempie la tabella con i dati della Select 
   da.Fill(dtLibri)
   'Itera le righe 
   For each dr as DataRows In dtLibri.Rows
      dr.Item("NomeCampo1")
      dr.Item("NomeCampo2")
   Next
End Sub

Questo è tutto

Ciao Ciao