Переделать из раннего в позднее связывание

Private Sub UserForm_Initialize()
 
Dim con As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim s As String
con.Provider = "Microsoft.ACE.OLEDB.12.0"
con.ConnectionString = "Data Source=" & "C:\Users\notha\Desktop\User\Microsoft_6.accdb;"
'RS.CursorLocation = adUseClient
con.Open
RS.CursorType = adOpenStatic
RS.LockType = adLockOptimistic
RS.Open "SELECT filial FROM Филиалы", con
RS.MoveFirst
Do Until RS.EOF
For i = 0 To RS.Fields.Count - 1
s = RS(i)
ComboBox1.AddItem s
Next
RS.MoveNext
 
Loop
RS.Close
 
 
End Sub
 
Private Sub Combobox1_Change()
ListBox1.Clear
ListBox2.Clear
Dim con As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim d As String
con.Provider = "Microsoft.ACE.OLEDB.12.0"
con.ConnectionString = "Data Source=" & "C:\Users\notha\Desktop\User\Microsoft_6.accdb;"
 
con.Open
RS.CursorType = adOpenStatic
RS.LockType = adLockOptimistic
d = ComboBox1.Text
'substs = "SELECT Ремонт.comment FROM Филиалы INNER JOIN Ремонт ON Филиалы.idfilial = Ремонт.idfilial WHERE [filial] ='" & d & "'"
substs = "SELECT  Покупатель.customer FROM Покупатель INNER JOIN (Филиалы INNER JOIN Ремонт ON Филиалы.idfilial = Ремонт.idfilial) ON Покупатель.customerid = Ремонт.customerid WHERE [filial] ='" & d & "'"
 
RS.Open substs, con
'Debug.Print RS
'RS.MoveFirst
Do Until RS.EOF
For i = 0 To RS.Fields.Count - 1
'MsgBox "ghhg"
d = RS(i)
TextBox2.Text = d
Next
RS.MoveNext
Loop
RS.Close
End Sub

Dim con As New ADODB.Connection
Dim RS As New ADODB.Recordset

Dim con As Object
Dim RS As Object

   set con=CreateObject("ADODB.Connection")
   set RS=CreateObject("ADODB.Recordset")