Hola saludos, ayuda con listbox

Rogelio
02 de Junio del 2005
Pues aki molestando, miren tengo un problema que no he podido resolve,r se trata de mi codigo en mi codigo tengo un boton de eliminar, en donde utilizo recordset y listas, al momento que yo selecciono un elemento del listbox, y lo kiero eliminar, me lo elimina con la instruccion RS.Delete, pero como ese registro que esta en el eListbox, tambien lo tengo en una base de datos (access) tambien me lo kita de la base de datos, y lo k yo kiero es k solamente m elo kite del listbox, he utilizado la sentencia List1.RemoveItem, y no me lo hace :S por eso aki les va mi pekeño codigo para ke cheken y si me puedan ayudar en algo, se los agradeceria, estamos en contacto


COdigo :

Private Sub Command5_Click()
X = MsgBox("¿ Estás completamente seguro de eliminar el registro....?", vbYesNo, "Eliminar")

If X = vbYes Then
Command3.Enabled = False
If RS.State = 1 Then
RS.Close
End If
Command5.Enabled = True
RS.Open "select * from revista where nombrerevista ='" & List1.List(List1.ListIndex) & "'", CN, adOpenDynamic, adLockOptimistic
If RS.BOF = True And RS.EOF = True Then
Else
RS.Delete
End If
RS.Close
RS.Open "SELECT * FROM REVISTA", CN, adOpenDynamic, adLockOptimistic
List1.Clear
While (RS.EOF <> True)
RS.Delete
Wend
Command5.Enabled = False
Command4.Enabled = False
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""

End If
End Sub