vb.net se conecta a la base de datos SQL

Importa System.Data.OleDb

Módulo Módulo1

Función pública MdbMytab(ByVal str_select As String) como DataTable

Dim conn_mdb como nuevo OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=mdb.mdb")

Dim cmd como nuevo OleDbCommand(str_select, conn_mdb)

Dim da As New OleDbDataAdapter(cmd)

Dim mytb As DataSet = New DataSet

da.Data

Importa System.Data.OleDb

Clase pública Form1

Subformulario privado Form1_Load(ByVal remitente como System.Object, ByVal y como System.EventArgs) maneja MyBase.Load

Dim mytb As DataTable = MdbMytab("select * de Tabla1")

DataGridView1.DataSource = mytb

ComboBox1.DisplayMember = "Nombre"

ComboBox1.DataSource = mytb

Fin de sub

Fin de clase