Listing Program Mengkoneksikan Visual Basic 6.0 ke Microsoft Access 2007

Private Sub cmdkelaur_Click()

Unload Me

End Sub

Private Sub cmdsimpan_Click()

Adodc1.Recordset.AddNew

Adodc1.Recordset.Fields("Kode_Dos") = txtkode.Text

Adodc1.Recordset.Fields("Nama_Dos") = txtnama.Text

Adodc1.Recordset.Fields("Alamat_Dos") = txtalamat.Text

Adodc1.Recordset.Fields("No_Telp") = txtno.Text

Adodc1.Recordset.Update

End Sub

Private Sub cmdulang_Click()

txtkode.Text = ""

txtnama.Text = ""

txtalamat.Text = ""

txtno.Text = ""

End Sub

Private Sub Form_Load()

koneksi

Adodc1.ConnectionString = conn.ConnectionString

Adodc1.RecordSource = "select*from dosen"

Set DataGrid1.DataSource = Adodc1

End Sub

Public conn As New adodb.Connection

Public Sub koneksi()

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\database rumah2\pengajaran.mdb;Persist Security Info=False"

End Sub