\'Type Mismatch\' I funktion }(

Behøver det at være åbningen(*), der resulterer i fejlmed. \'Type Mismatch\' ?

(*)=Set rst = dbs.OpenRecordset([100 - Kunde Stamdata], dbOpenDynaset)

Jeg er bange for at der kan være en konflikt mine datatyper(arbejder med 75+objecter 8),
men har læst mig til at argumentet dbOpenDynaset har med sammenkædet tabeller at gøre.
Godtnok er det en sammenkædet tabel jeg prøvet at skrive til, men er der et alternativ jeg burde bruge istedet ?
En detalje er at jeg ikke skriver til alle felter i tabellen. Skal man det ?

Her er hvad jeg kalder funktionen med :

OpretKunde Kundenummer, Firmanavn, Adresse1, Adresse2, Postnr, Bank, Giro, Kundebetjener, Administrationsansvarlig, Telefon, Telefax, Direkte, Email, Homepage

Her er koden bag funktionen :

Sub OpretKunde(ByVal Kundenummer As String, ByVal Firmanavn As String, ByVal Adresse1 As String, ByVal Adresse2 As String, ByVal Postnr As Integer, ByVal Bank As String, ByVal Giro As Long, ByVal Kundebetjener As Integer, ByVal Administrationsansvarlig As Integer, ByVal Telefon As Long, ByVal Telefax As Long, ByVal Direkte As Long, ByVal Email As String, ByVal Homepage As String)

    Dim dbs As Database
    Dim rst As Recordset

    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset([100 - Kunde Stamdata], dbOpenDynaset)
       
    With rst
        .AddNew
        !Kundenummer = Kundenummer
        !Firmanavn = Firmanavn
        !Adresse1 = Adresse1
        !Adresse2 = Adresse2
        !Postnr = Postnr
        !Bank = Bank
        !Giro = Giro
        !Kundebetjener = Kundebetjener
        !Administrationsansvarlig = Administrationsansvarlig
        !Telefon = Telefon
        !Telefax = Telefax
        !Direkte = Direkte
        !Email = Email
        !Homepage = Homepage
        .Update
        .Close
    End With

(Bemærk : Koden er siden blevet modificeret, jeg opdaterer spm. asap)