Visual Basic - Urgente...Nose que pasa???

hola a to2.
Public Conn As ADODB.Connection
Public Reset As ADODB.Recordset
Public ResetCMD As ADODB.Command

Sub ConAcc()
Set Conn = New Connection
Set Reset = New Recordset
Set ResetCMD = New Command
On Error GoTo Rutina_Error
With Conn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & App.Path & "\Pruebas.mdb;" & _
"Jet OLEDB:Database" & "Persist Security Info=False"
.Open
End With

Rutina_Error:
MsgBox "Error: " & Err.Description
End Sub

El código anterior esta bien abre la base de datos sin ningún problema pero igual salta a RUTINA_ERROR y el Err.Description sale en blanco no se porque pasa eso, esta es una consulta.

La siguiente consulta es:

With ResetCMD
* Set .ActiveConnection = ConAcc
.CommandType = adCmdTable
.CommandText = "Select * From Prueba;"
Set Reset = .Execute
If Reset.EOF = True Then
MsgBox "En Blanco"
End If
End With

En este código tiene que ver con el primero pero el error se produce en Set .ActiveConnection = ConAcc (*), el error dice "Error de compilación: Se esperaba una función o una variable", tambien ya no se me ocurre que puede ser.

La bd esta echa en Access XP y la conexión es a traves de Microsoft.Jet.OLEDB.4.0.

Se agradece de ante mnao la ayuda...
chau...

Antes de:

Rutina_Error:

coloca un: Exit Sub

A la primera: Ponle Exit Sub después del End With
A la segunda: ¿Has abierto la conexión "ConACC"?
Saludos

Muchas gracias Cecilia y Nicolas se pasaron.
muy agradecido

cualquier cosa en las cuales les pueda ayudar me escriben al mail [email protected]