Public Shared Function cmdExecuteReader(ByVal SQLString As String) As _
      OleDb.OleDbDataReader
        Dim Con As OleDb.OleDbConnection = New OleDb.OleDbConnection
        Con.ConnectionString = cDataBase.ConString
        Con.Open()
        Dim cmd As OleDb.OleDbCommand = Con.CreateCommand
 
        cmd.CommandText = SQLString
 
        cmdExecuteReader = CType(cmd.ExecuteReader, OleDb.OleDbDataReader)
 
        cmd.close()
        con.close()
    End Function