Koneksi Visual basic 6 (VB6) dengan Access 2007

Cara koneksi VB6 dengan ms access 2007 sama dengan ms access versi sebelumnya , perpedaanya pada connectionstringnya saja:

ini contoh menyimpan data melalui VB6  ke access 2007  :

Private Sub Command1_Click()
Dim Koneksi2007 As New ADODB.Connection
Dim RecordSetTabel As New ADODB.Recordset

'konection string untuk ms acces 2007

Koneksi2007.Open "Provider=Microsoft.ACE.OLEDB.12.0;  Data
Source=D:\dataaccess2007.accdb;Persist Security Info=False;"

RecordSetTabel.Open "TabelBarcode",Koneksi2007, adOpenStatic, adLockOptimistic

If  RecordSetTabel.Supports(adAddNew) Then
With  RecordSetTabel
.AddNew
.Fields("Barcode") = Me.txtBarcode.Text
.Fields("Date") = Me.txtDate.Text
.Fields("Time") = Me.txtTime.Text
.Fields("Mesin_No") = Me.txtStcNum.Text
.Fields("Status") = Me.txtStatus.Text         '  OK or NG
.Update
End With

Label1.Caption =  " data has been added to database successfully"
End If

RecordSetTabel.Close
Set  RecordSetTabel = Nothing
Koneksi2007 .Close
Set Koneksi2007 = Nothing
End Sub