Visual Basic - Borrar registros de base de datos

Estoy haciendo un programa en el que quiero borrar un registro de una base de datos.
He puesto un Adodc y su Datagrid, debidamente compatibles.

En el botón “Borrar” escribí el siguiente código:

Private Sub CmdHJrDel_Click()
If (MsgBox("¿Es este caso el que quiere eliminar?:" & vbCrLf & vbCrLf & _
AdodcDelHJr.Recordset("nombre"), vbYesNo + vbQuestion) = vbYes) Then
AdodcDelHJr.Recordset.Delete 'Consulta muy compleja???
AdodcDelHJr.Recordset.MoveNext
End If
End Sub

Al correrlo, aparecen los registros en el Datagrid y el MsgBox me reporta el registro a borrar.
Pero la instrucción de borrar me reporta el error “consulta muy compleja”

¿Dónde está mi error?

Agradezco su ayuda

hola yo ando en las mismas pero quiero una consulta mediante sql respondiendo a tu respuesta yo tengo algo diferente te lo paso para que analices siento que esta mas digerida

CnFr = MsgBox("Desea Eliminar el registro", vbQuestion + vbYesNo, "Sisintie")
If CnFr = vbYes Then
Adodc1.Recordset.Delete
MendelreG
Else
MendelreG2
End If

cnfr = Variable global
y ya de ahi partes para asignar el valor de msgbox
despues viene la condicion a responder y se elige respuesta
confirmacion y acciones
la linea del MendelreG y MendelgeR2 no la tomes encuenta son mis msgbox k stan en modulos

espero t sirva todavia

Ya probé hacer el cambio de variable para el MsgBox.
Pero me sigue saliendo el mismo error.

Pienso que no sea problema de código, sino de propiedades de la tabla, del adodc, o del DataGrid. Pero no sé dónde esté la clave.

Te agradezco mucho tu ayuda
Leonel