Code:
Dim x As Integer

                    Call Adoconn 'CONNECTING TO DATABASE
                    Adodc1.RecordSource = "SELECT * FROM mytable Where aa= '" & ListView1.SelectedItem.SubItems(1) & "'"
                    Adodc1.Recordset.AddNew
                    x = ListView1.ListItems.Count
                    Adodc1.Recordset.Fields("aa") = ListView1.ListItems(x).SubItems(1)
                    Adodc1.Recordset.Fields("bb") = ListView1.ListItems(x).SubItems(2)
                    Adodc1.Recordset.Fields("cc") = ListView1.ListItems(x).SubItems(3)
                    Adodc1.Recordset.Fields("dd") = ListView1.ListItems(x).SubItems(4)
                    Adodc1.Recordset.Update
                    Adodc1.Recordset.MoveNext
I could not add records
please help me

thanx