Dim StreifenCMD As String = "SELECT kurz FROM magnetstreifen"
        Dim SQLcmd As New OleDb.OleDbCommand(StreifenCMD, OleDbConnection1)
        Dim SQLeinzelAdapter As New OleDb.OleDbDataAdapter(SQLcmd)
        Dim StreifenDT As New DataTable()
        If cbStreifen.Checked = True Then
            'Felder einblenden
            Me.cmbMagnetstreifen.Visible = True
            'SQLAbfrage zu Magnetstreifen
            Try
                SQLeinzelAdapter.Fill(StreifenDT)
                cmbMagnetstreifen.DataSource = StreifenDT
                cmbMagnetstreifen.DisplayMember = "kurz"
                cmbMagnetstreifen.Text = "Bitte auswählen ..."
            Catch ex As Exception
                MessageBox.Show(ex.ToString)
            End Try
        Else
            cmbMagnetstreifen.DataSource = Nothing
            cmbMagnetstreifen.DisplayMember = Nothing
            cmbMagnetstreifen.Text = Nothing
            'Me.cmbMagnetstreifen.Visible = False
        End If