Удаление строки во второй раз в представлении сетки данных не работает

Question

У меня есть список данных из базы данных, отображаемый в виде таблицы данных.Всякий раз, когда я удаляю одну запись, она успешно удаляет ее из таблицы, а также из базы данных, но когда я пытаюсь удалить другую запись, функция удаления больше не работает.

Вот мой код:

Private Sub cmdDelete_Click()
    Set Connect = New Class1
    Set rxdelete = New ADODB.Recordset

    Dim sqlString, dataID, answer As String

    dataID = lblID.Caption
    sqlString = "DELETE FROM tblloan WHERE ID = '" & Trim$(dataID) & "'"

    answer = MsgBox("Are you sure you want to delete this record?", vbYesNo, "RheaLending")

    If answer = vbYes Then
        rxdelete.Open sqlString, con, 3, 3
        Call refreshList
    Else
        Call refreshList
    End If

End Sub

Вот код для refreshList:

Sub refreshList()

    Set Connect = New Class1
    Set rxloan = New ADODB.Recordset

    rxloan.Open "SELECT * FROM tblloan LIMIT 100", con, 3, 3
    lblLNumberRecords.Caption = Format(rxloan.RecordCount, "###,###,###.##")
    Set DatLoans.DataSource = rxloan
    DatLoans.SetFocus

End Sub

Пожалуйста, кто-нибудь, помогите мне!Я использую базы данных vb6, adodb и mysql.