Please Help. Need INfo

[DJ_DELTA]

Hi Guys, Need Help With This

I have got a listview that shows the information loaded from a database.. running through Ado Data Control.

I can get new items added fine, and updating the database is good.. but when it comes to removeing the selected item, it always deletes the first item and not the selected.

I even set the program to set 4 labels with the information of the selected item and then ado run it through them. It finds the first label and checks the rest of the fields against labels 2 - 4. And it always finds it... but then removes the first item in the list??

I even tried it to just remove it from the information on label 1... i set two items on the list.. one said wages, other said benefits... i clicked on benefits and it deleted wages??

My Coding is very very bad, but i just want to get it to work for now, then i will cut it down and make it neat. Code is below: (Note:Income1 = Listview
)

Private Sub Command3_Click()
If Adodc1.Recordset.BOF = False Then Adodc1.Recordset.MoveFirst
Label1.Caption = Income1.SelectedItem
Label2.Caption = Income1.SelectedItem.SubItems(1)
Label3.Caption = Income1.SelectedItem.SubItems(2)
Label4.Caption = Income1.SelectedItem.SubItems(3)
Adodc1.Recordset.Find "Income = '" & Label1.Caption & "'"
If Adodc1.Recordset.Fields!Date = Label2.Caption _
    And Adodc1.Recordset.Fields!Amount = Label3.Caption _
    And Adodc1.Recordset.Fields!Frequency = Label4.Caption Then
    Adodc1.Recordset.Delete
    Adodc1.Recordset.MoveFirst
Else
    MsgBox "Not Item Found", vbOKOnly + vbExclamation, "Error27"
End If
End Sub

I choose to post it here as i do not know if it is a listview problem or a database error?