Visual Basic - problema para eliminar

bueno tengo un problema que me tiene lolco tengo un programa de captura y busqueda de datos pero rrequiero un boton eliminar y ya tengo el codigo del boton peor me marca error en el

Public Function tecfuncion(ByVal mi_sql As String)
Set tbase = OpenDatabase("c:\base\conexion.mdb")
SQL = mi_sql
Set treg = tbase.OpenRecordset(SQL) <------------AKI ME MANDA EL ERROR
End Function

que es lo que tiene mal me podrian ayudar

Si el error te lo da en el OPEN , lo mas seguro es que la sintaxis de la consulta SQL no este bien.

Saludos