Visual Basic - AYUDA CON ERROR

hola de nuevo me gustaria que me ayudaran con un error que manda el visual es el siguiente


invalid use of new key word

el codgio que estoy utilizando es

Dim Pathbd As String, cadena As String
Dim T As TextBox

Set cn = New Connection

Pathbd = App.Path & "db1.mdb"
cadena = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Pathbd & _
";Persist Security Info=False"


cn.Open cadena

Set rst = New Recordset

rst.Open "Select * FROM clientes Order by Apellido", cn, adOpenStatic, adLockOptimistic

Declaraste cn y rst?
En tus referencias existe el ADO?
Por último, Pathdb debería ser:
Pathbd = App.Path & "db1.mdb"

Espero que te sirva.

Saludos.

Option Explicit

Dim cn As Connection
Dim rst As Recordset

hasta arribota

estoy copiando el codigo de otro programa igual pero al pegarlo en este for no me funciona

Y en el menú Project | References...
Está palomeado el cuadro correspondiente a Microsoft ActiveX Data Objects 2.8 Library?

Saludos.

NO

INTENTO PALOMEARLO PERO ME MARCA

NAME CONFLICTS WITH EXISTING MODULE

Claro, es que en vez de PaloMearlo tienes que PaloCagarlo

mandame una copia de tu proyecto y yo te ayudo y te digo donde te equivocaste.