С чем связаны ошибки, как исправить?

_
Private Sub CommandButton1_Click()
Dim Conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim rs2 As ADODB.Recordset
Set Conn = New ADODB.Connection
Set rs = New ADODB.Recordset
Conn.Open "Provider=Microsoft jet 4.0 OLE DB Provider;" & "Data Source=C:\Users\Àëåêñàíäð\Downloads\bd.mdb;"
rs.Open "Çàêàçû", Conn, adOpenKeyset, adLockOptimistic
If (Not IsNumeric(UserForm1.TextBox1.Text)) Or (Not IsNumeric(UserForm1.TextBox4.Text)) Then MsgBox "Îøèáêà ïðè ââîäå" Else varfields = Array("Íîìåð", "Ñòîèìîñòü", "Äàòà ïîêóïêè", "Íîìåð ïîêóïàòåëÿ", "Íîìåð ïðîäàâöà")
varvalues = Array(CInt(UserForm1.TextBox1.Text), CInt(UserForm1.TextBox2.Text), CDate(UserForm1.TextBox3.Text), CInt(UserForm1.TextBox4.Text), CInt(UserForm1.TextBox5.Text))
rs.AddNew varfields, varvalues
rs.Update
Set Conn = Nothing
End Sub
 
Private Sub CommandButton2_Click()
UserForm1.Hide
UserForm2.Show
End Sub
 
 
Private Sub UserForm_Click()
 
End Sub
__

Private Sub CommandButton2_Click()
Dim Conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim rs2 As ADODB.Recordset
Dim i As Integer
Set Conn = New ADODB.Connection
Set rs = New ADODB.Recordset
Conn.Open "Provider=Microsoft jet 4.0 OLE DB Provider;" & "Data Source=C:\Users\Александр\Downloads\bd.mdb;"
rs.Open "SELECT Город , Count(Покупатели.Город) AS Kolichestvo From Покупатели, Заказы Where Заказы.[Номер покупателя] = Покупатели.Номер Group by Покупатели.Город HAVING Count(Покупатели.Город) > " & UserForm2.TextBox4.Text, Conn, adOpenKeyset, adLockOptimistic
UserForm2.ListBox1.Clear
UserForm2.ListBox1.ColumnCount = 2
UserForm2.ListBox1.AddItem "Город"
UserForm2.ListBox1.List(0, 1) = "Количество"
rs.MoveFirst
For i = 1 To rs.RecordCount
UserForm2.ListBox1.AddItem rs.Fields(0)
UserForm2.ListBox1.List(i, 1) = rs.Fields(1)
If i < rs.RecordCount Then rs.MoveNext
Next i
rs.Update
Set Conn = Nothing
End Sub

For i = 1 To rs.RecordCount
UserForm2.ListBox1.AddItem rs.Fields(0)
UserForm2.ListBox1.List(i, 1) = rs.Fields(1)
If i < rs.RecordCount Then rs.MoveNext
Next i

i = 0 'счетчик
Do Until rs.EOF 'цикл по записям рекордсета до конца записей
   i = i + 1 'инкремент счетчика
   UserForm2.ListBox1.AddItem rs.Fields(0).Value 'добавляем строку в список
   UserForm2.ListBox1.List(i, 1) = rs.Fields(1).Value 'добавляем значение
   rs.MoveNext 'переход на следующую запись
Loop

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;User Id=admin;Password=;

Conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=С:\База_данных.mdb;"