Hi friends,
I am a new person for Access VBA. I am testing a code an d got error message as
run-time error '13'
type mismatch

this is a simple code as

Private Sub testing_Click()
Dim db As Database, rec As Recordset
Dim aa As Integer
Set db = CurrentDb
Set rec = db.OpenRecordset("test", dbOpenTable)
aa = 0
Do
aa = aa + 1
Debug.Print rec![Name]
Loop Until aa > 2
End Sub

when i debuging it, it indicate error at line Set rec = db.OpenRecordset("test", dbOpenTable)

what is wrong?
Thanks for any help


Jimmy ([email protected])

Jimmy

I had to change the table [ZipCodeDetails] and field name
[CityName] for my mdb and recordset [rstZip],
but this now works for me

Dave

-------------------------
Option Compare Database
Option Explicit

Private Sub testing_Click()

Dim Cnn1 As ADODB.Connection
Set Cnn1 = CurrentProject.Connection
Dim rstZip As ADODB.Recordset
Dim Aa As Integer

Set rstZip = New ADODB.Recordset
rstZip.CursorType = adOpenKeyset
rstZip.LockType = adLockOptimistic
rstZip.Open "ZipCodeDetails", Cnn1, , , adCmdTable


Aa = 0
Do
Aa = Aa + 1
Debug.Print rstZip![CityName]
Loop Until Aa > 2
End Sub

Hi pmmgpgp,

Thanks for your help.
works!

Jimmy