Dim cn As SqlConnection = New SqlConnection("SERVER=xxxxx;DATABASE=xxxx;uid=xxx; pwd=xxx")
Dim ds As DataSet = New DataSet
Dim adap As SqlDataAdapter = New SqlDataAdapter("SELECT strIdAppl FROM tblsysAplicaciones", cn)
adap.Fill(ds)
dataGrid1.DataSource = ds.Tables(0)
Página :
http://www.developerfusion.co.uk/uti...sharptovb.aspx
(Creo q está también en las FAQs)
saludos