con este ejemplo podas hacer la consulta y guardarlo en un dataset
***** = Servidor del sql
88888= nombre de la base de datos
espero que te sea de ayuda
Dim strConn As String = "Integrated security=True;server=******;database=888888"
Dim conn As SqlConnection = New SqlConnection(strConn)
conn.Open()
Dim CmdCuenta As SqlDataAdapter
CmdCuenta = New SqlDataAdapter("SELECT * FROM PLANC", conn)
Dim Ds As DataSet
Ds = New DataSet
CmdCuenta.Fill(Ds, "PLANC")
conn.Close()

__________________
Si eres yunque, soporta; si eres martillo, golpea.