Visual Basic - error 91 al ejecutar un command

estoy logueando en un tabla todas las cionsultas que hago sobre la base.
Para ello utilizo un command, ya que el insert en la tabla de logueo esta en un Procedure.
cuando quiere ejecutar este comando me dá el
error 91
desc :La variable de tipo Object o la variable de bloque With no está establecida

Alguien me podrá dar una pista.....
gracias.

Pueda ser que te falte declarar alguna variable con Set... por ejemplo si fuera algún recordset..

Set Rs = New ADODB.RecordSet

Set dgdBuscarMedicinas.DataSource = cn.Execute("BuscarMedicamentos '" & "" & "', '" & Trim(Replace(txtNomGenrico.Text, "'", "''")) & "', 2"): carga_Datos_Petitorio

BuscarMedicamentos es un procedimiento almacenado
donde recibo los datos

Una de las posibles causas es que no esté localizando el archivo de la base de datos.

No esta localizando el archivo de tub ase de datos.......................
efectivamente esta es la mejor opcion, ya que tu base de datos estaba en otra compu en otro directorio y ahora lo tienes en otra pc y en otro directorio

buena respuesta, me has salvado... XD

yo tambien tengo el mismo problema pero con los codigos de los comandos actualizar, añadir y eliminar.
*utilizo una base de datos de access.
*en los tres codigos me salen error en los codigos correspondientes a cada uno.

aquì esta el codigo, si alguien tiene alguna sugerencia u otra manera programar asì, decidme por favor, no es por precionar pero me urge un poco:

#Const TextLigados = -1
Private sBase As String
Private cnn As ADODB.Connection
Private WithEvents rst As ADODB.Recordset

Const cPrimero = 0
Const cAnterior = 1
Const cSiguiente = 2
Const cUltimo = 3

Private Sub cmdAdd_Click()
rst.AddNew
#If TextLigados = 0 Then
Text1(0) = ""
Text1(1) = ""
Text1(2) = ""
cmdUpdate_Click
#End If
Text1(0).SetFocus
End Sub

Private Sub cmdDel_Click()
rst.Delete
On Local Error Resume Next
rst.Move 1
If Err Then
rst.MovePrevious
End If
Err = 0
End Sub
Private Sub cmdMove_Click(Index As Integer)
On Local Error Resume Next
Err = 0
Select Case Index
Case cPrimero ' Primero
rst.MoveFirst
Case cAnterior ' Anterior
rst.MovePrevious
Case cSiguiente ' Siguiente
rst.MoveNext
Case cUltimo ' Último
rst.MoveLast
End Select

If Err Then
Debug.Print Err.Description
End If
Err = 0
End Sub

Private Sub cmdUpdate_Click()
rst!Id = Text1(0)
rst!no_depen = Text1(1)
rst!numramo = Text1(2)
rst!domicilio = Text1(3)
rst!cen_adsc = Text1(4)
rst!jf_inm = Text1(5)
rst!puesto = Text1(6)
rst!fc_comun = Text1(7)
rst!hr_comun = Text1(8)
rst!re_dep = Text1(9)
rst!no_emple = Text1(10)

sBase = App.Path & "driesgos.mdb"
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
rst.Open "SELECT * FROM dependencia", cnn, adOpenDynamic, adLockOptimistic
#If TextLigados Then
Dim i As Long
For i = 0 To 10
Set Text1(i).DataSource = rst
Next

Text1(0).DataField = "Id"
Text1(1).DataField = "no_depen"
Text1(2).DataField = "numramo"
Text1(3).DataField = "domicilio"
Text1(4).DataField = "cen_adsc"
Text1(5).DataField = "jf_inm"
Text1(6).DataField = "puesto"
Text1(7).DataField = "fc_comun"
Text1(8).DataField = "hr_comun"
Text1(9).DataField = "re_dep"
Text1(10).DataField = "no_emple"
cmdUpdate.Enabled = False
#End If
cmdUpdate.Enabled = True
End Sub