Можно ли sql запросу передать имя поля в виде переменной?

Private Sub optFind_Click(Index As Integer)
    Select Case Index
        Case 0
            kriter = 'naznachenPlateza'
        Case 1
            kriter = 'polucatName'
    End Select
End Sub
 
Private Sub findrecord()
 
Dim FindSQL As String
    FindSQL = 'SELECT * FROM tblMain WHERE '' & frmFind.kriter & '' LIKE '' & txtFind.Text & '' ORDER BY [id]'
 
Dim dbFind As ADODB.Connection
    Set dbFind = New ADODB.Connection
        dbFind.CursorLocation = adUseClient
        dbFind.Open 'PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=d:dbmos.mdb;'
    Dim rsFind As New ADODB.Recordset
   Set rsFind = New ADODB.Recordset
        rsFind.Open FindSQL, dbFind, adOpenStatic, adLockOptimistic
 
Dim oTextVid As TextBox
    For Each oTextVid In Me.txtFields
       Set oTextVid.DataSource = rsFind
    Next

Private Sub optFind_Click(Index As Integer)
  Select Case Index    
    Case 0      
      kriter = 'naznachenPlateza'    
    Case 1 
      kriter = 'polucatName'  
  End Select
End Sub
Private Sub findrecord()
Dim FindSQL As String  
  FindSQL = 'SELECT * FROM tblMain WHERE ' & frmFind.kriter & _
            ' LIKE '' & txtFind.Text & '' ORDER BY [id]'
'Your code