Visual Basic - Eliminar un registro en access

Buenas, disculpen las molestias nuevamente... empece un programa en visual basic 6 y access 2010. El problema que tengo, es que al borrar un registro de access, me salta un error. El codigo que uso es este:
Set reg = New ADODB.Recordset

cnn.Provider = "Microsoft.ACE.OLEDB.12.0"
cnn.Properties("Data Source") = App.Path & ".\DBRegistro.mdb"
cnn.Open

On Error GoTo error

reg.Open "DELETE * FROM Altasanimales WHERE Buscar=" & Val(Txtbuscar.Text), cnn, adOpenDynamic, adLockOptimistic


MsgBox "Se borro el registro exitosamente", vbInformation, "Eliminar"


cnn.Close
Exit Sub

error:
MsgBox "Se produjo un error al eliminar el registro", vbCritical, "Eliminar"

cnn.Close


El error me sale en "cnn.open". Desde ya muchas gracias por su ayuda. Saludos

El código está bien excepto que si buscar es un campo de texto deberías indicarlo así

... Buscar = '" txtbuscar.text & "'" o sea que los criterios se describen así 'criterio'

Buenas tardes, antes que nada, muchas gracias por responder y marcarme 2 errores: el primero es el que me respondiste y el segundo, lo tenia asi al codigo de busqueda porque, mala mia, perdon!!! no aclare que era numerico el txtbox de buscar. Igual voy a tomar tu consejo. Muchas gracias, nuevamente. Saludos!!!

Ok
En la cadena de conexión este es el error.

".\DBRegistro.mdb"
Decía ser

"\DBRegistro.mdb"
Sobra el punto

Hola.. ahi lo probe y funciono!!! muchas gracias por decirme cual era el error!!! Un abrazo enorme!!!