Problem med flytning af poster fra tabel til en anden

Jeg har en kodestump som er vist i slutningen af mit spørgsmål til at udvælge nogle data fra en tabel og indsætte dem i en anden.
Jeg vil dog gerne have at den kun tager de poster der begynder ned noget bestemt i et felt.

Jeg har tænkt på noget i retning af strSQL = strSQL & "WHERE (((ozekismsin.msg) Like ""ID*""));"

men kan ikke rigtigt finde ud af at få det til at hænge sammen med nedenstående kode !


Function DecodeString()

Dim strSQL As String
Dim db As DAO.Database

    Set db = CurrentDb()

    strSQL = "INSERT INTO Data ( ID, Dato, Tidspunkt, A1, A2, B1, B2, C1, C2, D1, D2 )"
    strSQL = strSQL & "SELECT Mid([MSG],3,2) AS ID, "
    strSQL = strSQL & "Mid([senttime],1,10) AS Dato, "
    strSQL = strSQL & "Mid([senttime],12,8) AS Tidspunkt, "
    strSQL = strSQL & "Mid([MSG],6,5) AS A1, "
    strSQL = strSQL & "Mid([MSG],12,5) AS A2, "
    strSQL = strSQL & "Mid([MSG],18,5) AS B1, "
    strSQL = strSQL & "Mid([MSG],24,5) AS B2, "
    strSQL = strSQL & "Mid([MSG],30,5) AS C1, "
    strSQL = strSQL & "Mid([MSG],36,5) AS C2, "
    strSQL = strSQL & "Mid([MSG],42,5) AS D1, "
    strSQL = strSQL & "Mid([MSG],48,5) AS D2  "
    strSQL = strSQL & "FROM ozekismsin;"
    db.Execute strSQL

End Function