Visual Basic - Porque no funciona el codigo (conexion Acces 2000)

Hola, alguien podria decirme porque no funciona este codigo de conexion a la BD:

Option Explicit
Dim conBase As ADODB.Connection
Dim rstCliente As ADODB.Recordset

Private Sub Form_Load()
On Error GoTo errorA

Set conBase = New ADODB.Connection
With conBase
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & App.Path & "\base2000.mdb;Persist Security Info=False"
.Open
End With

Set rstCliente = New ADODB.Recordset
With rstCliente
.ActiveConnection = conBase
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open "SELECT * from Clientes"
End With

errorA:
MsgBox "No se puede establecer la conexion a la Base de Datos" & vbCrLf & "Error : " & Err.Description, vbInformation, "Tech"
Unload Me
End Sub

¿Qué está mal?

Hola, prueba a hacerlo de esta forma:

Set conBase = New ADODB.Connection
Set rstCliente = New ADODB.Recordset

conBase.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\base2000.mdb"
rstCliente.Open "SELECT * FROM Clientes", conexión, adOpenDynamic, adLockOptimistic

Donde pone conexión tienes que poner conBase.

Un saludo.