Visual Basic - OpenSchema

MI PREGUNTA ES PORQUE NO ME ACEPTA EL OPENSCHEMA o si me dicen otro metodo para cargar las tablas de la base da datos

gracias

Option Explicit
Global db As New ADODB.Connection
Global Aux As New ADODB.Recordset
Global temp As New ADODB.Recordset
Dim TablaType() As String
Dim TablaName() As String
Dim j As Integer
Dim i As Integer
Dim Findsps As String
Dim OrderF As String

Sub Abro_Datos()
Set db = New ADODB.Connection
db.Provider = "Microsoft.Jet.OLEDB.4.0"
db.Open "Data Source=C:\Sistemas\Ventas.mdb" & datos
seleccionar
End Sub

Private sub seleccionar()
Set vertabla = db.OpenSchema(adSchemaTables)
ReDim Preserve TablaName(0)
ReDim Preserve TablaType(0)
Do While Not vertabla.EOF
If vertabla!TABLE_TYPE = "TABLE" Then
TablaName(i) = vertabla!TABLE_NAME
i = i + 1
ReDim Preserve TablaName(i)
End If
vertabla.MoveNext
Loop
For j = 0 To i - i
Tabla.AddItem TablaName(j)
Next j
db.Close
Exit Sub
Errhandler:
End Sub

Hola que tal.
Bueno, supongo que esto será sólo parte del código, porque el recordset "vertabla" no está definida, y en la línea:
db.Open "Data Source=C:\Sistemas\Ventas.mdb" & datos
creo que sobra "& datos", y si no es así no se que función tiene.
La subrutina "seleccionar" modificándola un poco:

Private Sub seleccionar()
i = 0
Set VerTabla = db.OpenSchema(adSchemaTables)
ReDim Preserve TablaName(0)
ReDim Preserve TablaType(0)
Do While Not VerTabla.EOF
If VerTabla!TABLE_TYPE = "TABLE" Then
TablaName(i) = VerTabla!TABLE_NAME
Tabla.AddItem TablaName(i)
i = i + 1
ReDim Preserve TablaName(i)
End If
VerTabla.MoveNext
Loop
db.Close
Exit Sub
Errhandler:
End Sub

si funciona.
Supongo que tendrás cargada la referencia "Microsoft ActiveX Data Objects ?.? Library"
Un saludo

hola oye gracias Shrank no tengo cargada la libreria Microsoft ActiveX Data Objects Library, pero al momento de qyererla cargar me manda este mensaje "Name Conflicts eith Existing, Module, Proyect or Object Library"
No se si me puedas decir porque