Call ListAddItems(Me.name, "Gorod", "SELECT Goroda.GorodCode, Goroda.Gorod, Goroda.Oblast, Goroda.District FROM Goroda " _
& "ORDER BY Goroda.Gorod;", cnToDataBase)

'Модуль
Function ListAddItems(strNameOfForm As String, ctlList As String, strSQL As String, cnToDataBase As ADODB.Connection)
Dim rs As ADODB.Recordset, strRow As String, NameColonsOfList() As String, i As Long
Set rs = New ADODB.Recordset
rs.Open strSQL, cnToDataBase, adOpenForwardOnly, adLockReadOnly
A = CountRowsInTable(strSQL, cnToDataBase)
If CountRowsInTable(strSQL, cnToDataBase) > 0 Then

    ReDim NameColonsOfList(rs.Fields.count)
    For i = 0 To rs.Fields.count - 1
        NameColonsOfList(i) = rs.Fields(i).name
    Next i

    With Forms(strNameOfForm).Controls(ctlList)
        .RowSourceType = "Value List"
        .ColumnCount = UBound(NameColonsOfList)
        
        Do Until rs.EOF
        strRow = ""
            For i = 0 To UBound(NameColonsOfList) - 1
                strRow = strRow & ";" & rs.Fields(NameColonsOfList(i)).Value
            Next i
            .AddItem Right(strRow, Len(strRow) - 1)
        rs.MoveNext
        Loop
    End With
End If
rs.Close
Set rs = Nothing

End Function

Dim cnToDataBase As ADODB.Connection, rs As ADODB.Recordset, strSQL As String

Set cnToDataBase = GetConnectToDataBase
Forms!Form1.Goroda.RowSource = vbNullString
strSQL = "SELECT Goroda.GorodCode, Goroda.Gorod, Goroda.Oblast, Goroda.District FROM Goroda WHERE (((Goroda.Node)<>'EMS')) ORDER BY Goroda.Gorod;"
Set rs = New ADODB.Recordset
rs.Open strSQL, cnToDataBase, adOpenStatic, adLockReadOnly
Forms!Form1.Goroda.RowSourceType = "Table/Query"
Set Forms!Form1.Goroda.Recordset = rs
rs.Close
Set rs = Nothing

cnToDataBase.Close
Set cnToDataBase = Nothing