Dim name As String
        Dim vor As String
        Dim str As String
        Dim plz As String
        Dim ort As String
        Dim tel As String
        Dim fax As String
        Dim mail As String
        Dim sql As String
 
 
        Dim dbFile As String
        name = txtkdname.Text
        vor = txtkdvor.Text
        str = txtkdstr.Text
        plz = txtkdplz.Text
        ort = txtkdort.Text
        tel = txtkdtel.Text
        fax = txtkdfax.Text
        mail = txtkdmail.Text
        sql = "Insert into kunden values (" & _
          "'',name,vor,str,plz,ort,tel,fax,mail,1)"