Flere opslag i streng

Hej,
Jeg har en kode hvor jeg ønsker at summe værdierne for en række kontonumre på en given dato ved at slå i en Access Database.
Koden fungerer fint, hvis jeg blot summer for dato og ét kontonummer, men hvis jeg ønsker at summe for flere værdier på en given dato fungere koden ikke.
Hvordan separeres numrene i min streng?

Koden er som følger:

Function HentLikv(ByVal Enhed As String, ByVal dato As Date)

    'Funktionen henter saldo for en given dato i tabellen
   
    Dim ws As DAO.Workspace
    Dim DB As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSQL As String
    Dim strEnhed As String
   
    'Omformatterer dato
    dato = Format(dato, "mm-dd-yyyy")

    'Vælger mellem x og y
    If Enhed = "x" Then
        strEnhed = " AND Nummer =3001859 and 3100222 and 3100222 and 3100222"
          Else
    If Enhed = "y" Then
        strEnhed = " AND Nummer =3001055"
    Else
        strEnhed = ""
    End If
    End If
   
    'Forbinder til databasen
    Set ws = DBEngine.Workspaces(0)
    Set DB = ws.OpenDatabase("S:\....mdb")

    'Henter data
    Let strSQL = "SELECT sum(BogfoertSaldoDKK) as test FROM TABEL WHERE Dato =#" & dato & "#" & strEnhed
    Set rs = DB.OpenRecordset(strSQL)
   
    HentLikv = rs!test

End Function

Håber nogen kan hjælpe..
/Gamper