update ado database

[gracehskuo]

hello,i need help!

1)how to immediately update recordset and perform the sql query i request?

Private Sub cmdtest_Click(Index As Integer)
On Error Resume Next
  With rs
            .Fields("Location") = Txtlocation.Text
            .Fields("DatePurchase") = DTPpurchase
            .Fields("Item") = dcomboitem.Text
            .Fields("Detail") = Txtitem2.Text
            .Fields("IDNumber") = Txtidnumber.Text
            .Fields("Price") = Txtprice.Text
            .Fields("Status") = Combostatus.Text
            .Fields("DateScrap") = DTPScrap
            .Fields("Deletedate") = Txtdeldate.Text
            Call clear
        If MsgBox("are you sure want to update", vbOKCancel + vbExclamation, "update Record") = vbOK Then
        .Update
        Call display1
    End If
    End With
end sub
 
Private Sub display1()
Adodc1.ConnectionString = JetConnection
Adodc1.Refresh
 
 Adodc1.RecordSource = "SELECT *from Inventory where Deletedate is Null"
        Adodc1.Refresh
 
End Sub

thanks!