Private Sub Command1_Click()
If conn.State = 1 And rec.State = 1 Then
conn.Close
End If
If Con.State = 1 And cn.State = 1 Then
cn.Close
End If
Dim son As New ADODB.Connection
Dim RsT As New ADODB.Recordset
 
        'Deklaration der Connectvariable
        Dim strConnect As String
 
        'Der Connectstring wird hier aus Treiberdaten Login zusammengesetzt
        strConnect = "uid=muskat;pwd=muskat;driver={MySQL ODBC 3.51" & _
          "Driver};server=MW-INFO;database=muskat;dsn=''" '"driver={Sybase ASE" & _
          "ODBC Driver};SERVERNAME=Produktion;DB=musk;UID=muskator;PWD=planetar"
 
        'Zuweisung von Einstellungen
        son.ConnectionString = strConnect
        son.ConnectionTimeout = 10
        son.CursorLocation = adUseNone
        son.Open
 
        'Datenbankaufruf mit den Tabellen Kunden,Adressen
        RsT.Open "SELECT * FROM tblQ_Verguetungen", son, adOpenKeyset, _
          adLockOptimistic
    With RsT
        .AddNew
       '!ad_name = txtName.Text
        !k_nr = txtKdNr.Text
        !ad_strasse = txtStrasse.Text
        !ad_ort = txtOrt.Text
        !ad_plz = txtPlz.Text
        !ad_laender_kn = txtLand.Text
        .Update
    End With
 
End Sub