Dim ssql As String
    ssql = "INSERT INTO Customers (Id_Card,Last_Name,First_Name,Company_Name,Street,House_Number,City,Zip_Code,Telephone,Pelephone) " & _
    "VALUES (" & TxtId & "','" & _
    TxtLastName & "','" & _
    TxtFirstName & "','" & _
    TxtCompeny & "','" & _
    TxtStreet & "','" & _
    TxtHouseNum & "','" & _
    TxtCity & "','" & _
    TxtZipCode & "','" & _
    TxtTel & "','" & _
    TxtPel & ")"
    MsgBox ssql
    AdoCustomers2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ComputerLand.mdb;Persist Security Info=False"
    AdoCustomers2.CommandType = adCmdText
    AdoCustomers2.RecordSource = ssql
    AdoCustomers2.Refresh