Problema Con EOF y BFO

yorgas
17 de Febrero del 2006
Tengo el siguiente problema:
Estoy accediendo a una bd con acces 2002 y cuando desde mi aplicacion quiero eliminar datos de un msflexgrid y se trata del ultimo registro me da el error:
El valor de BOD o EOF es true, o el actual registro se elimino, la operacion requiere un registro actual.

Como puedo solventar este problema?
Gacias de antemano.

CSDK
17 de Febrero del 2006
If Cmd_Aceptar.Caption = "Eliminar" Then
conex

RST_EMPLEADO.Source = "SELECT DISTINCT TB_EMPLEADO.NOMBRE_COMPLETO,TB_EMPLEADO.CURP,TB_EMPLEADO.RFC, TB_EMPLEADO.S_diario, TB_EMPLEADO.PUESTO, TB_EMPLEADO.CVL_NIVEL, TB_EMPLEADO.CVL_SECCION,TB_NIVEL.DESCRIPCION, TB_SECCIONES.DESCRIPCION AS Expr1 FROM TB_EMPLEADO INNER JOIN TB_NIVEL ON TB_EMPLEADO.CVL_NIVEL = TB_NIVEL.CVL_NIVEL CROSS JOIN TB_EMPLEADO TB_EMPLEADO_1 INNER JOIN TB_SECCIONES ON TB_EMPLEADO.CVL_SECCION = TB_SECCIONES.CVL_SECCION WHERE TB_EMPLEADO.CVL_EMPLEADO='" & Txt_CvlEmpleado.Text & "';"
RST_EMPLEADO.ActiveConnection = ADOCONN
RST_EMPLEADO.Open

If Not RST_EMPLEADO.EOF Then
Txt_Nombre.Text = RST_EMPLEADO.Fields("nombre_completo")
Txt_Curp.Text = RST_EMPLEADO.Fields("curp")
Txt_Rfc.Text = RST_EMPLEADO.Fields("RFC")
Label9.Caption = RST_EMPLEADO.Fields("Expr1")
Label9.Visible = True
Cbo_Seccion.Visible = False
Cbo_Nivel.Text = RST_EMPLEADO.Fields("DESCRIPCION")
Cbo_Puesto.Text = RST_EMPLEADO.Fields("puesto")
Cbo_Sexo.Text = RST_EMPLEADO.Fields("s_diario")
desconectar
Else

MsgBox "El Registro no Existe", vbInformation
Txt_CvlEmpleado.Text = ""
Cmd_Aceptar.Caption = "Eliminar"
Screen.MousePointer = vbNormal
desconectar

Exit Sub
End If
res = MsgBox("¿Desea eliminar el empleado?", vbYesNo, "Eliminar empleado")
If res = 6 Then
conex
RST_EMPLEADO.Source = "delete from tb_empleado where cvl_empleado=('" & Txt_CvlEmpleado.Text & "')"
RST_EMPLEADO.ActiveConnection = ADOCONN
RST_EMPLEADO.Open
desconectar
Call Lim_Emp
Txt_CvlEmpleado.Enabled = True
Txt_CvlEmpleado.SetFocus
Cmd_Aceptar.Caption = "Eliminar"
Cmd_Aceptar.Enabled = True
Cmd_Aceptar.SetFocus

Else
Call Lim_Emp
Txt_CvlEmpleado.Enabled = True
Txt_CvlEmpleado.SetFocus
End If
Cmd_Aceptar.Caption = "Eliminar"