Listebox slette fejl!!! HELP!!!!

øhh. kan man ikek se lidt kode??

Det er lidt svært når man ikke kan se din kode min ven!

OG koden kommer her:
---------------------------------------------------------------------------
Option Explicit
Dim datDB As Database
Dim recSkillsIndex As Recordset
Dim recOccSkills As Recordset
Dim strSQL As String

Private Sub cmdBack_Click()
Unload Me
End Sub

'OPRETTER ADGANG TIL DATABASE
Private Sub Form_Load()
txtName.Text = CharactherCreator.txtName.Text

'SKILLINDEX UDFYLDES
Set datDB = DBEngine.Workspaces(0).OpenDatabase("Data.mdb")
strSQL = "Select * from Skills "
Set recSkillsIndex = datDB.OpenRecordset(strSQL)
Do While Not recSkillsIndex.EOF
ListSkillIndex.AddItem recSkillsIndex("SkillName") & ""
recSkillsIndex.MoveNext
Loop

'OCCSKILLLIST UDFYLDES
strSQL = "SELECT * FROM CharactherOccSkills WHERE CharactherName Like '*" & txtName.Text & "*'"
Set recOccSkills = datDB.OpenRecordset(strSQL)
Do While Not recOccSkills.EOF
ListOccSkills.AddItem recOccSkills("SkillName") & ""
recOccSkills.MoveNext
Loop
End Sub

'SUB FORM
Private Sub UpdateFelter()
End Sub

'TILFØJER OCC RELATED SKILL
Private Sub cmdAddOccSkill_Click()
recOccSkills.AddNew
recOccSkills("CharactherName") = txtName.Text
recOccSkills("SkillName") = ListSkillIndex.Text
txtOccSkillBase.Text = txtBase.Text
txtOccSkillBonus.Text = txtBonus.Text
recOccSkills("Base") = txtOccSkillBase.Text
recOccSkills("Bonus") = txtOccSkillBonus.Text
recOccSkills.Update
ListOccSkills.Clear
strSQL = "SELECT * FROM CharactherOccSkills WHERE CharactherName Like '*" & txtName.Text & "*' "
Set recOccSkills = datDB.OpenRecordset(strSQL)
Do While Not recOccSkills.EOF
ListOccSkills.AddItem recOccSkills("skillName") & ""
recOccSkills.MoveNext
Loop
End Sub

'SLETTER OCC RELATED SKILL
Private Sub cmdRemoveOccSkill_Click()
recOccSkills.Delete
ListOccSkills.Clear
strSQL = "SELECT * FROM CharactherOccSkills WHERE CharactherName Like '*" & txtName.Text & "*'"
Set recOccSkills = datDB.OpenRecordset(strSQL)
Do While Not recOccSkills.EOF
ListOccSkills.AddItem recOccSkills("SkillName") & ""
recOccSkills.MoveNext
Loop

End Sub

Hvor går den fejl?

Den stopper lige her:

recOccSkills.Delete

og du er sikker på at der findes en post i databasen?

Hvad siger fejlmeddelelsen?

Ja jeg er 100% sikker på at der er en post i DB'en.... for jeg kan nemt tilføje en ny post.... og går jeg ind i databasen bagefter, så er den osse tilføjet.... Ikke noget problem!!!

Hvad siger fejlmeddelelsen?

Har lige prøvet at lave et lille program der udfører det du ønsker:

Dim datdb As Database
Dim recRec As Recordset
Dim strSQL As String

Private Sub Command1_Click()
Do While Not recRec.EOF
    List1.AddItem (recRec("OrderID"))
    recRec.MoveNext
Loop
End Sub

Private Sub Command2_Click()
recRec.MoveLast
recRec.Delete

End Sub

Private Sub Form_Load()

Set datdb = DBEngine.Workspaces(0).OpenDatabase("C:\Programmer\Microsoft Visual Studio\VB98\nwind.mdb")
strSQL = "SELECT * FROM Orders"
Set recRec = datdb.OpenRecordset(strSQL)

End Sub

Det virker!

Er det virkelig det eneste der er ivejen????

Private Sub Command2_Click()
recRec.MoveLast
recRec.Delete

Ja min virker ikke!!!

Hvad siger fejlmeddelelsen?
Hvad siger fejlmeddelelsen?
Hvad siger fejlmeddelelsen?
Hvad siger fejlmeddelelsen?
Hvad siger fejlmeddelelsen?

Nej hov..... lige en lille ting og NU virker den!!!

Jeg tester den lige igennem lidt senere.... vender tilbage immorgen om der er nogen problemer.....

point?

point?

Takker!