Public Function CmbRowSource(sFields As String, _
                             sDomain As String, _
                             Optional sCrit As String, _
                             Optional sOrderBy As String, Optional NewConnection As Boolean = True) As String
       'создание строки - источника строк для комбобокса'
    Dim sSrc As String
    Dim sSQL As String
    Dim rst As New ADODB.Recordset
    Dim fld As ADODB.Field
    
    On Error GoTo e
    sCrit = IIf(Len(sCrit) >  0 ,  " WHERE "  & sCrit,  "")                             
    sOrderBy = IIf(Len(sOrderBy) > 0 , " ORDER BY  " & sOrderBy, "  ")        
    sSQL = " SELECT  " & sFields & "  FROM  " & sDomain & sCrit & sOrderBy               
    If NewConnection Then OpenConn True
    With rst
        .Open sSQL, ProjectCurCnn, adOpenForwardOnly, adLockReadOnly, adCmdText
        If Not (.EOF And .BOF) Then
            Do Until .EOF
               For Each fld In .Fields
                   sSrc = sSrc & " ; " & Nz(fld.Value)
               Next fld
               .MoveNext
            Loop
        End If
    End With
    If Len(sSrc) > 0  Then sSrc = Right$(sSrc, Len(sSrc) -  1 )
    CmbRowSource = sSrc
ex:
  On Error Resume Next
  rst.Close
  Set rst = Nothing
  If NewConnection Then OpenConn False
  Err.number =  0 
  Exit Function
e:
    Select Case Err.number
         Case Else
        MsgBox "Исключение № " & Err.number & " :  " & Err.Description, vbCritical, " CmbRowSource"
    End Select
    Resume ex       

End Function

Me!cmbWhouse.RowSource = CmbRowSource( "WHouseID, WHouseName" ,  "VW_WHouses" , _
                     "StationID="  & lngStID &  " AND WHouseID<>"  & lngWHouseID)