Error 'No Current Record' when trying to delete

[THEAF]

i'm trying to create a reminder form, when i add a new reminder its ok but when i try to delete a reminder then i get No Current Record problem.

Form Load
[CODE=vb]Private Sub Form_Load()
Dim s() As String
Dim ListTime As String
Dim ListDate As String
Dim i As Integer
Set dbReminder = OpenDatabase(Ap p.Path & "\Password.mdb" )
Set rsReminder = dbReminder.Open Recordset("Remi nder", dbOpenDynaset)

If Not rsReminder.EOF Then rsReminder.Move First

Do While Not rsReminder.EOF
lstReminder.Add Item rsReminder!Rno & "." & " " & rsReminder!Name & vbTab & vbTab & rsReminder!Date & vbTab & rsReminder!Time
lstReminder.Ite mData(lstRemind er.NewIndex) = rsReminder!Rno
rsReminder.Move Next
Loop
For i = 0 To lstReminder.Lis tCount - 1
s = Split(lstRemind er.List(i), vbTab)
ListTime = Mid(s(UBound(s) ), 1, Len(s(UBound(s) )) - 3)
ListDate = s(UBound(s) - 1)
If ListTime = Mid(Time, 1, Len(Time) - 3) And ListDate = Date Then
MsgBox rsReminder!Name & "ghghgh"
End If
Next
End Sub
[/CODE]
My List Box
[CODE=vb]Private Sub List1_Click()
rsReminder.Find First "Rno=" & (lstReminder.It emData(lstRemin der.ListIndex))
rsReminder!Rno = frmReminder.txt no.Text
rsReminder!Name = frmReminder.txt Name.Text
rsReminder!Date = frmReminder.txt Date.Text
rsReminder!Time = frmReminder.txt Time.Text
rsReminder!Comm ents = frmReminder.txt Comment.Text
End Sub
[/CODE]
My Delete Button
[CODE=vb]Private Sub cmdDelete_Click ()
Const strDelete As String = "Are you sure you want to delete this record?"
Dim response As Integer

response = MsgBox(strDelet e, vbYesNo + vbQuestion + vbDefaultButton 2, "Delete record")
If response = vbYes Then
rsReminder.Dele te
lstReminder.Rem oveItem lstReminder.Lis tIndex
' MsgBox txtFname & " " & txtSname & " has been deleted from the record", vbInformation + vbOKOnly, "Record Deleted"
' Call cmdClear_Click
End If
End Sub
[/CODE]
I get the error on this line " rsReminder.Dele te" on the delete button. Does anyone know what is the poblem.
I THANK U ANY ANSWERS

[Killer42]

I think the problem is in your listbox click routine. You're not selecting a record, but simply stuffing values into the recordset as though you were about to store a new record.

I'd say that routine probably should be doing a FindFirst or similar, to position the recordset to the selected record.