Dim modvAr

Public Sub FillList()
    Dim rst As ADODB.Recordset
    Dim cmd As ADODB.Command
    Dim s
    
    On Error GoTo e
    Select Case Me!docid
        Case  2 ,  7 
            s =  "In" 
        Case  1 ,  6 
            s =  "Out" 
    End Select
    Set cmd = New ADODB.Command
    With cmd
       Set .ActiveConnection = ProjectCurCnn
       .CommandType = adCmdStoredProc
       .CommandText =  "ExpencesList" 
        Set rst = .Execute(Parameters:=Array(s,  0 ,  0 ))
        modvAr = rst.GetRows( 2  ^  15 )
   End With
ex:
    On Error Resume Next
    rst.Close
    Set rst = Nothing
    Set cmd = Nothing
    Err.number =  0 
    Exit Sub
e:
    MsgBox Err.number &  ":  "  & Err.Description
    Resume ex
End Sub

'при изменении текста в поле ExpenceDescr

Private Sub ExpenceDescr_Change()
    If modintKeyCode = vbKeyBack _
         Or modintKeyCode = vbKeyDelete _
            Or modintKeyCode = vbKeySpace _
               Or modintKeyCode = vbKeyReturn _
                  Then Exit Sub
               
    Dim l As Long
    Dim s As String
    Dim lid As Long
    
    s = Me!ExpenceDescr.Text
    For l =  0  To Nz(UBound(modvAr,  2 ),  0 )
        If (modvAr( 1 , l) Like s &  "*" ) Then
           Me!ExpenceDescr = modvAr( 1 , l)
           lid = modvAr( 0 , l)
           Exit For
         End If
    Next
    With Me!ExpenceDescr
        .SelStart = Len(s)
        .SelLength = Len(Me!ExpenceDescr.Text) - Len(s)
    End With
    ExpenceID = lid   
End Sub

Private Function CheckExpence() As Boolean
    If (Nz(Me!ExpenceID,  0 ) <>  0 ) Then Exit Function
    Dim l As Long
    Dim s As String
    Dim lid As Long
    
    On Error Resume Next
    s = Me!ExpenceDescr
    For l =  0  To Nz(UBound(modvAr,  2 ),  0 )
        If (modvAr( 1 , l) = s) Then
           lid = modvAr( 0 , l)
           Exit For
         End If
    Next
    If lid =  0  Then
       MsgBox  "Не правильно выбрана статья." , vbExclamation, conMsgTitle
       CheckExpence = True
    End If
    ExpenceID = lid
    Err.number =  0 
End Function