如何获取数据库中所有的表名？

兄弟送你一个小礼物：
Private Sub Command1_Click()
    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim i As Long
    Dim table As String
    With cnn
        .ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Blackcar_Taxi;Data Source=211.102.13.54"
        .Open
        'rst.CursorLocation = adUseServer
        Set rst = .OpenSchema(adSchemaTables)
    End With
    i = Timer
    Do Until rst.EOF
        If rst!TABLE_TYPE = "TABLE" Then  '这个在text1中的表，就是用户表了
           Text1.Text = Text1.Text + rst!TABLE_NAME + vbCrLf
        End If
        rst.MoveNext
    Loop
    Debug.Print Timer - i
    rst.Close
    cnn.Close
    
    Set rst = Nothing
    Set cnn = Nothing