Me.OleDbInsertCommand1.CommandText = "INSERT INTO dbo.k1t001eichvorgab(" & _
  "tragl_code, max_last1, max_last2, min_last, e1, " & _
        "e2, di, einheit, kalgr_plst, kalgr_kzs, kalgr_gzs, txt_null, txt_min," & _
        "txt_500e1," & _
        " txt_2000e1, txt_3000e1, txt_2000e2, txt_max, prl_null, prl_min," & _
        "prl_500e1, prl_" & _
        "2000e1, prl_3000e1, prl_2000e2, prl_max, kzs_null, kzs_min, kzs_500e1," & _
        "kzs_2000e" & _
        "1, kzs_3000e1, kzs_2000e2, kzs_max, gzs_null, gzs_min, gkzs_500e1," & _
        "gzs_2000e1, g" & _
        "zs_3000e1, gzs_2000e2, gzs_max, amb_plst, amb_kzs, amb_gzs," & _
        "time_stamp) VALUES (" & _
        "?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?," & _
        "?, ?, ?, ?," & _
        " ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?); SELECT tragl_code," & _
        "max_last1, " & _
        "max_last2, min_last, e1, e2, di, einheit, kalgr_plst, kalgr_kzs," & _
        "kalgr_gzs, txt_" & _
        "null, txt_min, txt_500e1, txt_2000e1, txt_3000e1, txt_2000e2, txt_max," & _
        "prl_null," & _
        " prl_min, prl_500e1, prl_2000e1, prl_3000e1, prl_2000e2, prl_max," & _
        "kzs_null, kzs_" & _
        "min, kzs_500e1, kzs_2000e1, kzs_3000e1, kzs_2000e2, kzs_max, gzs_null," & _
        "gzs_min, " & _
        "gkzs_500e1, gzs_2000e1, gzs_3000e1, gzs_2000e2, gzs_max, amb_plst," & _
        "amb_kzs, amb_" & _
        "gzs, time_stamp FROM dbo.k1t001eichvorgab WHERE (tragl_code = ?)"
        Me.OleDbInsertCommand1.Connection = Me.OleDbConnection1
        Me.OleDbInsertCommand1.Parameters.Add(New _
          System.Data.OleDb.OleDbParameter("tragl_code", _
          System.Data.OleDb.OleDbType.VarChar, 7, "tragl_code"))
        Me.OleDbInsertCommand1.Parameters.Add(New _
        System.Data.OleDb.OleDbParameter("max_last1", _
        System.Data.OleDb.OleDbType.VarChar, 8, "max_last1"))
        Me.OleDbInsertCommand1.Parameters.Add(New _
        System.Data.OleDb.OleDbParameter("max_last2", _
        System.Data.OleDb.OleDbType.VarChar, 8, "max_last2"))
        Me.OleDbInsertCommand1.Parameters.Add(New _
        System.Data.OleDb.OleDbParameter("min_last", _
        System.Data.OleDb.OleDbType.VarChar, 8, "min_last"))
        Me.OleDbInsertCommand1.Parameters.Add(New _
        System.Data.OleDb.OleDbParameter("e1", _
        System.Data.OleDb.OleDbType.VarChar, 8, "e1"))
        Me.OleDbInsertCommand1.Parameters.Add(New _
        System.Data.OleDb.OleDbParameter("e2", _
        System.Data.OleDb.OleDbType.VarChar, 8, "e2"))
        Me.OleDbInsertCommand1.Parameters.Add(New _
        System.Data.OleDb.OleDbParameter("di", _
        System.Data.OleDb.OleDbType.VarChar, 8, "di"))
        Me.OleDbInsertCommand1.Parameters.Add(New _
        System.Data.OleDb.OleDbParameter("einheit", _
        System.Data.OleDb.OleDbType.VarChar, 8, "einheit"))
        Me.OleDbInsertCommand1.Parameters.Add(New _
        System.Data.OleDb.OleDbParameter("amb_gzs", _
        System.Data.OleDb.OleDbType.VarChar, 10, "amb_gzs"))
        Me.OleDbInsertCommand1.Parameters.Add(New _
        System.Data.OleDb.OleDbParameter("time_stamp", _
        System.Data.OleDb.OleDbType.VarBinary, 8, "time_stamp"))
        Me.OleDbInsertCommand1.Parameters.Add(New _
        System.Data.OleDb.OleDbParameter("Select_tragl_code", _
        System.Data.OleDb.OleDbType.VarChar, 7, "tragl_code"))