Set oConn = New ADODB.Connection
    Set oRS = New ADODB.Recordset
    sConn = "Provider=SQLOLEDB.1;User ID='" & g_DBBenutzer & "'; Password='" & _
      g_DBPasswort & "';" & _
            "Initial Catalog='" & g_DBDatenbank & "';Data Source='" & _
            g_DBServerIP & "'"
    oConn.Open sConn
    oRS.Open "SELECT * FROM " & g_DBTabelle, oConn, adOpenDynamic, _
      adLockOptimistic
    g_DBServerOK = True
    oRS.AddNew
    oRS("Station") = g_Produktionsdaten.Station
    oRS("Kommission") = g_Produktionsdaten.Kommission
    oRS("Ausfuehrung") = g_Produktionsdaten.Ausfuehrung
    oRS("Zeitstempel") = g_Produktionsdaten.Zeitstempel
     '.
     '.
     '.
    oRS.Update
    oRS.Close
    oConn.Close
    Set oRS = Nothing
    Set oConn = Nothing
    Exit Sub