what could be the Problem? -SQL

[hossomo]

I want to delete records that are returned By a variable- prompt
I have this code under a procedure -CancelReservations:

Dim rec As New ADODB.Recordset
Dim Mysql As String
Mysql = "DELETE Accounts.*,Reservations.* "
Mysql = Mysql & "FROM accounts,reservations "
Mysql = Mysql & "WHERE reservations.Name
IN (" & prompt & ")"
Set rec = Cnca.Execute(Mysql)
I am getting the following error:

"Record is deleted"

how can I Avoid this error? any ideas?
hos

[Ecniv]

One idea :

I take it this is from a button on a form.
Enter the name into a text field.
.
It would be something like the following

'--------------------
dim adocmd as new adodb.command

on error resume next

adocmd.sql="delete Accounts.* from Accounts where accounts.name='" & txtFieldName & "';"
adoCmd.execute

adocmd.sql="delete reservation.* from reservations where reservations.name='" & txtFieldName & "';"
adoCmd.execute

set adocmd=nothing
'--------------------

I haven't done much with ado - so I can't remember the exact properties you need to fill in, but this should be close...

Experiment ?

Vince