Адаптирование кода Visual Basic 6 с DAO под ADO - VB

Формулировка задачи:

Всем добрый день! В процессе поиска примеров работы ComboBox наткнулся на такой рабочий код , однако он адаптирован под технологию DAO, с которой не доводилось работать. Мне нужен сам принцип , как при помощи ComboBox выбрать значение и присвоить RecordSource , чтобы в последствие открыть базу данных

Решение задачи: «Адаптирование кода Visual Basic 6 с DAO под ADO»

textual
                            Листинг программы 
                        

                            Dim Conn As Object
Dim cat  As Object
Dim Rs   As Object
 
Private Sub Form_Load()
 
     HomeDir$ = App.Path
 
     Set Conn = CreateObject("ADODB.Connection")
 
     Set cat = CreateObject("ADOX.Catalog")
          
     strProvider$ = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=;" & _
                    "Data Source=" & HomeDir & "\db.mdb" & ";Mode=Share Deny None;" & _
                    "Extended Properties=" & "''" & ";Jet OLEDB:System database=;Jet O"
    
     Conn.ConnectionString = strProvider$
     Conn.Open
     cat.ActiveConnection = Conn.ConnectionString
     
     sz% = 100
     ReDim S(0 To sz%) As String
     ptrS% = 0
     
     Комбо1.Clear
     
     For Each tdf In cat.Tables
         
         If UCase$(Left$(tdf.Name, 4)) <> "MSYS" Then
         
            Комбо1.AddItem tdf.Name
            
            S(ptrS%) = tdf.Name
            
            ptrS% = ptrS% + 1
            
            If ptrS% > sz% Then
               sz% = sz% + 100
               ReDim Preserve S(0 To sz%) As String
            End If
            
         End If
     
     Next
 
     Комбо1.ListIndex = 0
 
     If ptrS% < sz% Then ReDim Preserve S(0 To ptrS%) As String
 
End Sub
 
Private Sub Комбо1_Click()
 
   Список1.Clear
   
   Текст1.Text = ""
   Текст2.Text = ""
   Текст3.Text = ""
 
   SQL$ = "select * from [" + Комбо1.Text + "]"
 
   Set Rs = CreateObject("ADODB.Recordset")
 
   Rs.Open SQL, Conn, 3, 3
 
   Do While Not Rs.EOF
        Список1.AddItem Rs(0)
        Rs.MoveNext
   Loop
 
   Rs.Close
   
End Sub
 
Private Sub Список1_Click()
 
   '::: остальное - сам !
   '::: остальное - сам !
   '::: остальное - сам !
 
End Sub
                        