Eliminar registro en un MSHFlexGrid

[principefreddy]

Dim rs As New ADODB.Recordset



With dbFlex
If .Row <= 0 Then
MsgBox " No hay ninguna fila seleccionada para eliminar ", vbExclamation
Exit Sub
End If

' AQUI ES DONDE MUETSRA EL ERROR'
TxtCedula = .TextMatrix(.Row, 1)


'Cadena SQL.


SQL = "DELETE * FROM " & chicas & " WHERE " & cedula & "=" & TxtCedula

If MsgBox("Eliminar el Registro ?", _
vbQuestion + vbYesNo) = vbNo Then
Exit Sub
End If

' Elimina el registro
nc.Execute SQL

' deshabilitar el redraw para el MSHFlexGrid
.Redraw = False

' Vuelve a cargar el FlexGrid para reflejar el cambio
Set .DataSource = Nothing

' ejecutar el Requery para volver a llenar el recordset con los cambios
rs.Requery

Set .DataSource = rs

' Volver a habilitar el redraw para el control MSHFlexGrid
.Redraw = True

End With

Y EN EL LOAD TENGO :

Command1.Caption = " Eliminar registro "
With dbFlex

'Crear una Nueva conexión
Set nc = New ADODB.Connection

'Abre la bd pasando de la cadena de conexión OLEDB
nc.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\myapp.dat;Persist Security Info=False"


'Crear un Nuevo recordset
Set rs = New ADODB.Recordset

' Llenar el Recorset
'rs.Open Cadena_SQL, nc, adOpenDynamic, adLockBatchOptimistic, adCmdText

'Enlazar y Cargar el FlexGrig
'Set .DataSource = rs

'Seleccionar por fila

.SelectionMode = flexSelectionByRow


Command1.Caption = " Eliminar registro "

End With



que solucion me dan..