code:

---

Function Cleardatabase()
$RC=SetOption("WrapAtEOL","On") 
$DSN="Driver={Microsoft Access Driver (*.mdb)}; DBQ=$DBPath$DBFile" 
$Connection = CreateObject("ADODB.Connection") 
$Command = CreateObject("ADODB.Command") 
$Recordset = CreateObject("ADODB.Recordset") 

$Connection If @error = 0  
? "Connected"
	$Connection.ConnectionString = $DSN
	$Connection.Open()
	$Command.ActiveConnection = $Connection
	$Recordset.CursorType = 3
	$Recordset.LockType = 3
	$Recordset.ActiveCommand = $Command
			$DELETE_ALL = "SELECT * FROM TBL_PROGRAM WHERE COMPUTER <> '*';"

			$Command.CommandText = $DELETE_ALL 
			$Recordset.Open($Command)
			If $Recordset.RecordCount > 1
			For $count = 1 to $Recordset.RecordCount
			$Recordset.Delete
			Next
			EndIf
			$Recordset.Update
			$Recordset.Close()
		?"Completed Successfully"
	$Connection.Close()
	$Connection = 0
	$Recordset = 0
	$Command = 0
EndFunction

---

code:

---

$DELETE_SQL = "delete from table where criteria='delete this one';"
$x = $Connection.Execute($DELETE_SQL)  

---

code:

---

$rc=DBConnOpen(...)  ;insert correct parameters to open database
$rc=DBExecute($sqlcommand) ; execute SQL command
$rc=DBConnClose(...) ;close database

---