Visual Basic - base de datos

hola, tengo una base de datos con 100 tablas y quiero visualizarlas en un combo que puedo hacer

Con el método OpenSchema de ADO:

Dim rs As ADODB.Recordset
Set rs = cn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))
Do Until rs.EOF
Combo1.AddItem rs("TABLE_NAME")
rs.MoveNext
Loop

Por supuesto, "cn" es la conexión a la base de datos.