Dim MyCommand as New OleDbCommand("PRDL_SSCC_ERZEUGEN", MyConnection)
 
MyConnection.Open()
MyCommand.Parameters.AddWithValue(":vTEAM_ID", My.Settings.vTeamID)
MyCommand.Parameters.AddWithValue(":vARTIKEL_ID", My.Settings.vArtikelID) 
MyCommand.ExecuteNonQuery()
MyConnection.Close()