Visual Basic - error 13 en tiempo de ejecucion

hola soy nuevo en esto de trabajar en access 200 con vba habia trabajado con cuestiones superiores donde era un poco mas sencillo mi pregunta era la siguiente estoy trabajando en acces 2000 y a la vez con vba lo que pasa es que e estado buscando durante tiempo en la red soluciones acerca de como poder crear una conexion y de ahi establecer una consulta para poder hacer un llenado de un text box desde la consulta y pues lo ultimo me sale error 13 en ejecucion en la conexion antes de eso me salia uno referente a que no se podia crear el objeto espero su pronta respuesta aqui dejo el codigo de la conexion

Private Sub form_load()
'****crear conexion****
Dim Rs As Recordset

Dim con As Connection

Set Rs = createobject(DAODB.Recordset)
Set con = New ADODB.Connection
con.OpenRecordset "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=j:\sanchea\db cal1_Backup.MDB;" & _
"Persist Security Info=False"



End Sub

y este es el de la consulta
Private Sub No_de_parte_lostfocus()
Dim Rs As New ADODB.Recordset

Dim No_de_parte As String

Dim consulta As String
Dim Descripcion As String

consulta = "select descripcion from piezas "

Rs.Open consulta, con, 1
Do Until Rs.EOF

Descripcion = Rs.Fields("descripcion").Value


Rs.MoveNext

Loop

Rs.Close

con.Close





End Sub

Asi lo haria yo.
Siempre teniendo la referencia a ADO 2.8

Dim cn as new ado.conection
Dim Rs as new ado.recordset

cn.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=j:\sanchea\db cal1_Backup.MDB;"Persist Security Info=False"
cn.open

rs.open "select descripcion from piezas ",cn

do while not rs.eof
Descripcion = Rs.Fields("descripcion").Value


Rs.MoveNext


loop

rs.close
cn.close
set rs=nothing
set cn=nothing


Saludos !!

muchas gracias pero aqui se esta utilizando el da0 3.6