cmd.CommandText = "INSERT INTO Fahrer (DB_Fahrer_Index, DB_Fahrer_Name," & _
          "DB_Fahrer_Vorname, DB_Geburtstag, DB_in_Firma_ab, DB_in_Firma_bis," & _
          "DB_Taxischein_bis, DB_INFO) VALUES (?,?,?,?,?,?,?,?) "
        cmd.Parameters.AddWithValue("DB_Fahrer_Index", fahrer_index.Text)
        '... weitere Parameter
        If (firma_bis.Text <> "") Then
            cmd.Parameters.AddWithValue("firma_bis_speichern", firma_bis.Text)
        Else
            cmd.Parameters.AddWithValue("firma_bis_speichern", DBNull.Value)
        End If
        '... restliche Parameter
        con.Open()
        cmd.ExecuteNonQuery()
        con.Close()