ช่วยหน่อยครับ ผมต้องการให้มันรับผ่านตัวแปลนะครับ

<----------------->
Dim strsql As String
Dim rst As Recordset
Dim Char As String

If Me.Text1.Value = "รหัส" Then
Char = "index.id"
End If

strsql = "SELECT * FROM Index Where ((...............) like '*" & Me.Text2.Value & "*'));"
'เส้นปะต้องการให้แทนด้วย Char ที่ได้มาจาก Index.id มันไม่ยอมครับ แต่ถ้าเรา พิมพ์ ที่เส้นปะด้วย Index.id ได้ครับ หรือ ว่าผมประกาศตัวแปลผิด ทำไงดีครับ เพราะต้องการกำหนดได้หลายๆ อย่างโดยที่ใช้คำสั่ง Select บรรทัดเดียว

Set rst = CurrentDb.OpenRecordset(strsql)
If rst.RecordCount > 0 Then
Me.subform.Form.RecordSource = strsql
Me.FilterOn = True
Me.Refresh
Else
MsgBox "..: # เสียใจด้วยครับ ไม่พอข้อมูลที่คุณต้องการ กรุณาค้นหาอีกครั้ง # :..", vbOKOnly + vbInformation, "คำแนะนำ"
End If
Set rst = Nothing

<----------------->