Visual Basic para Aplicaciones - Alguien que sepa de errores

Private Sub buttonmodificar_Click()
If (Me.Text1.Text) = "" Then
MsgBox "No hay registro para modificar " _
& "Seleccione uno presionando el botón Consultar"
Else
If Me.buttonmodificar.Caption = "Modificar" Then
Me.buttonmodificar.Caption = "Guardar"
Me.buttoncerrar.Caption = "Cancelar"
Me.Text1.Enabled = False
Me.Text2.Enabled = False
Me.Text3.Enabled = True
Me.Text4.Enabled = True
Me.Text5.Enabled = True
Me.Text6.Enabled = True
Me.Text7.Enabled = True
Me.Text8.Enabled = True
Me.Text9.Enabled = True
Me.Text10.Enabled = True
Me.Text11.Enabled = True

Else
conectar
Comando.CommandText = "select *.from Caja_Chica where Numero = '" & Me.Text1.Text & "'" & " and Fecha = '" & Me.Text2.Text & "'"

'ESTE ES EL OPEN PARA ACTUALIZAR
Rs.Open "Caja_Chica", conexion, adOpenKeyset, adLockOptimistic, adCmdText

Rs!a = Val(Me.Text7.Text)
Rs!b = Val(Me.Text8.Text) 'ojo, probar sin la funcion val
Rs!c = Val(Me.Text10.Text) 'ojo, aqui tambien...
Rs!d = Val(Me.Text11.Text)
If MsgBox("Esta seguro de modificar?", vbYesNo) = vbYes Then
Rs.Update
Else
Rs.CancelUpdate
End If
Rs.Close
Call desconectar
Me.buttonmodificar.Caption = "Modificar"
Me.buttoncerrar.Caption = "Cerrar"
Me.Text1.Enabled = False
Me.Text2.Enabled = False
Me.Text3.Enabled = False
Me.Text4.Enabled = False
Me.Text5.Enabled = False
Me.Text6.Enabled = False
Me.Text7.Enabled = False
End If
End If
End Sub

BIEN EL QUE NO SEPA QUE ESO ES EL PROCEDIMIENTO PARA CREAR UNA MODIFICACION, AHORA MI PREGUNTA ES RESULTA QUE SON DOS TABLAS EN UNA BASE DE DATOS EN ACCESS, ALMACENA BIEN,IMPRIME REPORTE DIARIO, AL CONSULTAR ESTAN LOS REGISTROS CON FECHA Y DEMAS EN AMBAS 'PERO' AL HACER CLIP EN MODIFICAR ME LANZA UN ERROR EN EL OPEN PARA ACTUALIZAR EN EL COMANDO "adCmdText " QUE DICE: no se puede encontrar el proyecto o la biblioteca.
QUIEN SEPA Y PUEDA AYUDARME ESTA ES MI DIRECCION DE CORREO.
[email protected].
Gracias