DR = SQLCmd.ExecuteReader
            Try
 
                DR.Read()
 
                'Do While DR.Read
                txtKdnr.Text = DR("kdnr".ToString)
                txtName.Text = DR("name".ToString)
                txtOrt.Text = DR("ort".ToString)
                txtLand.Text = DR("land".ToString)
                txtPlz.Text = DR("plz")
                txtExtra.Text = DR("extra".ToString)) 'Keine Daten vorhanden
 
                'Loop
            Catch ex As Exception
                MsgBox("Kein Datensatz gefunden", vbCritical, "Datensatz")
 
            End Try