visual basic y access 2000

[ccca001]

Const dbase As String = "C:\mibase.mdb"
Set oconn = New ADODB.Connection
Set rst = New ADODB.Recordset

With oconn
.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mibase.mdb;Uid=;Pwd=;"
.Open
End With

rst.Open "SELECT * FROM usuarios", oconn, adOpenDynamic, adLockOptimistic

sBuscar = accesotxt
sBuscar = Replace(sBuscar, "*", "%")
sBuscar = Replace(sBuscar, "?", "_")

accesotxt = sBuscar

sBuscar = "SELECT * FROM usuarios WHERE clave LIKE '" & sBuscar & "' ORDER BY clave"

Set tRs = oconn.Execute(sBuscar)
With tRs
True
If (.BOF And .EOF) Then
MsgBox "No se han encontrado los datos buscados"
Else

principalfrm.Show
Unload Me
End If
End With


y ademas permite encontrar un valor en la base de datos...