Vba 未在txt字段中填充记录集数据

我对Access和VBA都是新手，正在尝试探索。我有一个表单，其中有两个文本框（txtAc&txtFirstName），我希望根据基于txtAc参数的SQL查询在txtFirstName中填充数据。我试图通过记录集实现同样的目标。请在下面查看我的代码：-

 Private Sub txtCust_Click()
 Dim cnn As ADODB.Connection
 Dim strSQL As String
 Dim rst As ADODB.Recordset
 Set cnn = CurrentProject.Connection
 Dim i As Integer
 Dim Records As Integer
 Dim AcN As Double
 Dim AcNo As Double
 AcN = Forms!dfrmAccount!txtAc.Value
 AcN = AcNo
 strSQL = "SELECT dtblCustomer.[FIRST_N], dtblAccount.[ACCOUNT_NO] FROM 
 dtblAccount INNER JOIN dtblCustomer ON dtblAccount.[CUSTOMER_ID] = 
 dtblCustomer.[CUSTOMER_ID] WHERE (((dtblAccount.[ACCOUNT_NO])='AcNo'))"
 Set rst = New ADODB.Recordset
 rst.CursorLocation = adUseClient
 rst.Open strSQL, cnn
 Records = rst.RecordCount
 Debug.Print rst.RecordCount
 For i = 1 To Records
 Me.txtFirstName.Value = rst.Fields!FIRST_N
 Debug.Print rst.Fields!FIRST_N
 rst.MoveNext
 Next i
 '' Clean up
rst.CLOSE
Set rst = Nothing
End Sub

提前谢谢。请有人帮忙

...(((dtblAccount.[ACCOUNT_NO])='AcNo'))"

应该是

...(((dtblAccount.[ACCOUNT_NO])=" & AcNo & "))"

假设账户号是一个数字字段

---

您也没有填充AcNo-它的默认值为零。

当我执行这些代码时，我得到一个错误“条件表达式中的数据类型不匹配”查询只返回一行？由于您是新手，请从通常的绑定表单开始。将sql（省略where部分）添加到表单记录源，并将fcontrols绑定到字段/控件源）。在表单上使用Agodb就是精通。VBA整数限制为-32768到32767（16位/2字节），可能超过recordcount。请改用Long。谢谢回复，我们将执行建议和帖子