bug report

Hai:
I have vba coding like this,

Set conn = New ADODB.Connection
conn.provider = "Microsoft.jet.OLEDB.4.0"
conn.Open "c:acc/estmstr.mdb"
Dim acc As ADODB.Recordset
Set acc = New ADODB.Recordset
estmstr.Open "estmstr", conn, est_code, est_ext, est_name
acc.MoveFirst
Do Until acc.EOF
Msg box(estmstr.fields("ID"))
acc.MoveNext
Loop
acc.Close
Set acc.activeConnection = Nothing
conn.Close
Set conn = Nothing
End sub

but it shows the error user defined type not defined, how to i define that error
Dim conn new.adodb connection is correct ? or send some source for this