'
' 1. Варианты обращения к объектам формы и запроса
'
Set frm = Screen.ActiveForm
str1 = frm.Controls("Поле1").Value
str2 = frm.Recordset.Fields("ID")
Select Case frm.Recordset.Fields("Имя1").Type
    Case adCurrency
End Select

'
'  2. Получение данных из Combobox, где несколько колонок
'
Public Function funGetCombobox(ctl As Control, numColumn As Long)
Dim i As Long
    On Error Resume Next
    i = ctl.ListIndex
    If i <> -1 Then
        funGetCombobox = ctl.column(numColumn, i)
    Else
        funGetCombobox = ""
    End If
     Exit Function
999:
    funGetCombobox = ""
    Err.Clear
End Function