Public Sub IteraDati(cmd as SqlCommand)
Dim dtLibri As New DataTable("Libri")
Dim da As New DataAdapter(cmd)
da.FillSchema(dtLibri)
da.Fill(dtLibri)
For each dr as DataRows In dtLibri.Rows

End Sub