Slet af ADOB Recordset?

Hvis jeg har denne kode her:

Dim Trimmer As String

Trimmer = Left(LST_ExpansionJoints.Text, InStr(LST_ExpansionJoints.Text, vbTab) - 1)

SQL_String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=Data/database.mdb;"

Set rsEJDelete = New ADODB.Recordset
SQL = "SELECT * from [ORDER] WHERE [ID] like '" & Trimmer & "'"
rsEJDelete.Open SQL, SQL_String
   
   
    rsEJDelete.Delete
    rsEJDelete.Update

rsEJDelete.Close
Set rsEJDelete = Nothing

Hvorfor er det så at den ikke vil slette????