get Msysobject in Access 2000

junis · November 24th, 2006, 03:57 AM

Dear All,

if we want to see msysobject in Access 2003, we can follow this step, From the Pull Down menu select
1. Tools/Options
2. Select "View" tab and make System Objects checkbox selected
3. OK
4. Go Back to Pull Down Menu and SelectÃ¿
Tools/Security/User and Groups permissions
5. On Permissions TAB choose Table object type from the Combobox
6. Select MSysObjects table and give it permissions to read data and read design

the question is ... i want update the "Option" "tool" with visual basic code in application...? (VB.net)
this is my code in vb.net

Code:

Private Sub UpdateCboTable(ByVal sFileMDB As String)

        Me.CboTable.Items.Clear()

        strConn ="Provider=Microsoft.jet.oledb.4.0; data source= " & sFileMDB 
        cn = New OleDb.OleDbConnection(strConn)
        cn.Open()

        lSQL = "SELECT Name FROM  MSysObjects " & _
                " WHERE  (Left([Name],4) <> 'MSys')" & _
                " AND ([Type] In (1, 4, 6)) ORDER BY Name"

        cmd = cn.CreateCommand
        cmd.CommandText = lSQL
        Reader = cmd.ExecuteReader()

        Do While Reader.Read()
            Me.CboTable.Items.Add(Reader.GetString(0))
        Loop
        Reader.Close()
        cn = Nothing

    End Sub

cos .. if i'm not check this option, then message error " Records cannot be read; no read permission on Msysobject" is rise

well... i m really appreciate for your help
thx 4 ur attention
-junis-