BOF или EOF имеет значение true либо текущая запись удалена -Excel Access - VBA/Excel

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

Задание что бы из базы данных в ComboBox1 поддягивались филиалы, и в зависимости от выбранного филиала отображался вид ремонта в TextBox2. Филиалы подтянулись, но как только выбираю вылетает - BOF или EOF имеет значение true либо текущая запись удалена Насколько я понял ругается на RS.Open substs, con RS.MoveNext

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;"
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()
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;"
con.Open
RS.CursorType = adOpenStatic
RS.LockType = adLockOptimistic
s = ComboBox1.Text
substs = "SELECT Ремонт.comment FROM Филиалы INNER JOIN Ремонт ON Филиалы.idfilial = Ремонт.idfilial WHERE ([filial] = '&s')"
RS.Open substs, con
RS.MoveNext
Do Until RS.EOF
For i = 0 To RS.Fields.Count - 1
s = RS(i)
TextBox2.Text = s
Next
RS.MoveNext
Loop
RS.Close
End Sub

Решение задачи: «BOF или EOF имеет значение true либо текущая запись удалена -Excel Access»

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

                            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;"
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()
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;"
con.Open
RS.CursorType = adOpenStatic
RS.LockType = adLockOptimistic
s = ComboBox1.Text
substs = "SELECT ГђГҐГ¬Г®Г*ГІ.comment FROM Г”ГЁГ«ГЁГ*Г«Г» INNER JOIN ГђГҐГ¬Г®Г*ГІ ON Г”ГЁГ«ГЁГ*Г«Г».idfilial = ГђГҐГ¬Г®Г*ГІ.idfilial WHERE ([filial] = '&s')"
RS.Open substs, con
RS.MoveFirst
Do Until RS.EOF
For i = 0 To RS.Fields.Count - 1
s = RS(i)
TextBox2.Text = s
Next
RS.MoveNext
Loop
RS.Close
End Sub
                        