Dim sSql As String = "INSERT INTO Mitarbeiter (Nummer, Vorname, Nachname)" & _
  "VALUES(@Nummer, @Vorname, @Nachname)"
Dim cb As New OleDb.OleDbCommand(sSql, Me.objConn)
cb.Parameters.Add("@Nummer", OleDb.OleDbType.Integer, 10, "Nummer").Value = 99
cb.Parameters.Add("@Vorname", OleDb.OleDbType.VarChar, 20, "@Vorname").Value = _
  "Waldi"
cb.Parameters.Add("@Nachname", OleDb.OleDbType.VarChar, 20, "Vorname").Value = _
"Maywood"
cb.Connection.Open()
Debug.WriteLine(cb.CommandText) ' << hier
cb.ExecuteNonQuery()
cb.Connection.Close()