Conexión ADO

Buenas noches:

Tengo una pregunta que seguro ha salido otras veces, pero no se darle
salida. He mirado la ayuda y me da error, a saber: Uso Access2000

Tengo este procedimiento:
Public Sub sBotonADO()
Dim sRec As New ADODB.Recordset
Dim sBase As New ADODB.Connection
Dim sDato As String
Dim sConecta As String
Dim sRuta As String
Dim sCon As String


sCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\archivo mis documentos\pruebas\pruebas.mdb;"
sBase.ConnectionString = sCon
'sBase.Open sCon

sDato = InputBox("Elige un Producto.", "Producto", "Mopa")
sConecta = "select * from producto where producto='" & sDato & "';"
sRec.Open sConecta, sCon, adOpenKeyset, adLockOptimistic, adCmdText
With sRec
If .EOF Then
MsgBox "Este producto NO aparece: " & sDato
Else
MsgBox "Este producto SI aparece: " & sDato
End If
End With
sRec.Close
sBase.Close

End Sub


El caso es que así como está el código, me da error en el Srec(recordset),
pero se me abre el inputbox. Si cambio a sbase.open sCon me da el mismo
error, en el mismo lugar y no me abre el inputbox.

"El usuario "Admin" de la máquina ".." ha colocado la base en un estado que
impide que pueda ser abierta ni bloqueada"

Deciros que vinculo el procedimiento a un botón de comando.

A ver dónde la estoy pifiando...

Gracias anticipadas.