كود لقراءه الجداول الموجوده فى قاعده البيانات

السلام عليكــم ورحمـة الله وبركاتــة ،،

Private Sub Command1_Click()
	Dim con As ADODB.Connection
	Dim rs As ADODB.Recordset
	mmm = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & "c:\dbuser.mdb"
	Set con = New ADODB.Connection
	con.CursorLocation = adUseClient
	con.Open mmm
	Set rs = con.OpenSchema(adSchemaTables)
	Do Until rs.EOF
		If UCase(Left(rs!Table_Name, 4)) <> "MSYS" Then
			C1.AddItem rs!Table_Name
		End If
		rs.MoveNext
	Loop
End Sub

thanxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx for ur help