can somone see what im doing wrong here please ??

[Obear]

What im trying to to do is update an existing record in the database with the contents form the txtboxes into the felids shown.

'open connection with database'
deDatabase.rscomLock.Open

Dim strSelected_Record As Integer
strSelected_Record = frmRoadStaff.lstLock.SelectedItem.SubItems(6)

strSQL = "UPDATE FROM Mechanics WHERE UniqueID=" & strSelected_Record
deDatabase.rscomLock("Ref") = txtArea.Text
deDatabase.rscomLock("Name") = txtLockName.Text
deDatabase.rscomLock("Address") = txtAddress.Text
deDatabase.rscomLock("Tel_Home") = txtHomeNo.Text
deDatabase.rscomLock("Tel_Mobile") = txtMobileNo.Text
deDatabase.rscomLock("Notes") = txtNotes.Text
deDatabase.Connections(1).Execute strSQL

Oh yeh and a quick Ps

After you have made changes to a databse which is viewd from a listview, whats the listview command to REFRESH the list form the database?

[davebat]

shouldnt your sql string be:

"UPDATE TableName set Mechanics WHERE UniqueID=" & strSelected_Record