Error BOF como Evitar ??

[2Fast To You]

Listo

Ya anda

Solo que quite

Código PHP:

      rs.MoveNext 
   

Quedaría así

Código PHP:

  Private Sub CmdEliminar_Click()
    If Trim(txtNombre.Text) = "" Then
    MsgBox "No hay Registros", vbInformation, "Información"
    txtNombre.SetFocus
    Exit Sub
    End If
    rs.Delete
    If rs.EOF Then
        rs.MoveLast
    End If
    Unload Me
    Load frmEliminar
    frmEliminar.Show vbModal
End Sub