Alameda

Datagrig
Clic derecho en herramientas, clic derecho y agregamos datagrig la primera opción
Para conectarse a otra tabla de otro escritorio
Imports System.Data
Imports System.Data.SqlClientPublic Class Form1

Conectar
Dim cn As New SqlConnection("server=(local);DataBase=Northwind;Integrated Security=SSPI")
Dim ds As New DataSet

Private Sub Button1_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles Button1.Click

Jalar la informacion

Dim da As New SqlDataAdapter("select*from Employees", cn)
almacenar la informacionda.Fill(ds, "Empleados")

DataGrid1.DataSource = ds.Tables("Empleados")
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton2.Click


MOSTRAR

Dim da1 As New SqlDataAdapter("select LastName,FirstName,Birthdate from Employees", cn)
da1.Fill(ds, "Empleado")
DataGrid1.DataSource =ds.Tables("Empleado")
End Sub

PARA CONNECTARSE CON EL SQL

Imports System.Data
Imports System.Data.SqlClient

Public Class Form1
Dim cn As NewSqlConnection("Server=(local);DataBase=Northwind;Integrated Security=SSPI")
Dim ds As New DataSet

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim da As NewSqlDataAdapter("Select*from Employees", cn)

da.Fill(ds, "Empleados")
txtcodigo.DataBindings.Add("text", ds.Tables("Empleados"), "EmployeeID")
txtnombres.DataBindings.Add("text",ds.Tables("Empleados"), "LastName")
txtapellido.DataBindings.Add("text", ds.Tables("Empleados"), "FirstName")

DataGrid1.DataSource = ds.Tables("Empleados")
End Sub

Private Subbtnsiguiente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsiguiente.Click
Me.BindingContext(ds.Tables("Empleados")).Position += 1
End Sub

Private Sub...