| pues si tienes un botón dónde dice "borrar" y utilizas un Data para acceder a la BD, este código te va a funcionar:
data1.recordset.delete
if not data1.recordset.eof then
data1.recordset.movenext
elseif not data1.recordset.bof then
data1.recordset.moveprevious
else
msgbox "Estás en el ultimo registro"
end if
saludos! |