Visual Basic - ERROR AL ABRIR BASE ACCESS 2000

Hola a todos,
Soy nuevo en esto de VB y he tenido problemas para trabajar con BD Access. Estoy utilizando VB 6.0.(SP4) y Access 2000.
Quiero abrir una tabla de BD y agregarle registros, pero siempre me dice que "no coinciden los tipos" en la linea del recordset. Aqui va el codigo que tiene problemas a ver si me pueden ayudar:

Private Sub Command8_Click()
dim dat As Database
dim pro As Recordset

Set dat = dao.DBEngine.OpenDatabase(App.Path + "\datos.mdb")
Set pro = dat.OpenRecordset("productos", dbOpenTable)

With pro
.AddNew
!codigo = "100000"
!nombre = "Galletas de Chocolate"
!procedencia = "Mexico"
.Update
End With

End Sub


saludos a todos

intenta con lo siguiente:
Private Sub Command8_Click()
dim dat As Connect
dim pro As ADODB.Recordset
set pro= New Recordset
dat.open ""Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source="App.Path + "\datos.mdb"
pro.ActiveConnection=info
pro.Open "select * from productos", DB, adOpenStatic, adLockOptimistic
With pro
.AddNew
!codigo = "100000"
!nombre = "Galletas de Chocolate"
!procedencia = "Mexico"
.Update
End With

End Sub

espero te sirva