Public Function SQLCommand(ByVal Command As String, ByVal Query As Query) _
      As OdbcDataReader
 
        Dim myCommand As New OdbcCommand
        Dim myDataReader As OdbcDataReader
 
        'Die Connection wird übergeben
        myCommand.Connection = MyConnection
 
        'Der SQL Text wird übergeben
        myCommand.CommandText = Command
 
        myDataReader = Nothing
 
        Select Case Query
            Case Is = mySQL.Query.ExecuteNonQuery
                myCommand.ExecuteNonQuery()
            Case Is = mySQL.Query.ExecuteScalar
                myCommand.ExecuteScalar()
            Case Is = mySQL.Query.ExecuteReader
                myDataReader = myCommand.ExecuteReader
        End Select
 
 
        Return myDataReader
    End Function

 
        Dim mySql As New mySQL
        Dim myReader As OdbcDataReader
 
        mySql.Open(VOptNeu.mySQL.Database.VOptNeu)
        myReader = mySql.SQLCommand("Select KundenID, NName as Nachname, VName" & _
          "As Vorname, " & _
            "VersNr As Vers_Nummer, Date_Format(GebDat, '%d-%m-%Y') " & _
            " As Geburtsdatum From Kundenstamm Where NName like " & _
            "'" & txtNName.Text & "%' And VName like " & _
            "'" & txtVName.Text & "%'", VOptNeu.mySQL.Query.ExecuteReader)