这一句话什么意思?

Question

Private Sub Command1_Click()
Common.DefaultExt = "*.mdb"
Common.Filter = "*.mdb"
Common.ShowOpen
Text1.Text = Common.FileName
cn.Open "Provider =Microsoft.Jet.OLEDB.4.0;Data Source=" & Common.FileName & ";Persist Security Info= False"
Set rs = cn.OpenSchema(adSchemaTables)
Do Until rs.EOF
If Left(rs!TABLE_NAME, 4) <> "MSys" ThenList1.AddItem rs!TABLE_NAME
End If
rs.MoveNext
Loop
rs.Close
End Sub
If Left(rs!TABLE_NAME, 4) <> "MSys" Then
尤其是MSYS J是什么?

Answer 1

应该是循环判断access中 的表 假如是用户表就把 表名 罗列到 list1 列表控件中

Answer 2

MSys数据库里的表名称，前4个字符是MSys的，就不列出来了，其他都列出来，估计MSys是系统表吧