Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim ClNum As Variant
    
    Set db = CurrentDb
    
    ClNum =  1 
    
    'Если поле "cliennumber" - числовое.
    Set rst = db.OpenRecordset( _
      "SELECT cliennumber, summa FROM IMP_Start WHERE cliennumber = " & ClNum)
    
    'Если поле "cliennumber" - строковое.
    'Set rst = db.OpenRecordset( _
      "SELECT cliennumber, summa FROM IMP_Start WHERE cliennumber = '" & ClNum & "'")
    
    If Not rst.EOF Then
        Do Until rst.EOF
            Debug.Print rst.Fields( 0 ); rst.Fields( 1 )
            rst.MoveNext
        Loop
     End If
     
     rst.Close
     Set rst = Nothing
     Set db = Nothing