ms-access - Access フォームの openrecordset から複数のテキスト ボックスを作成する

Question

openrecordset から複数のテキストボックスにデータを取り込もうとしていますが、次のエラーが発生します

実行時エラー 3601 パラメータが少なすぎます。予想 1

これが私の機能です

Function fnSearchAndPopulate() As Boolean
Dim d As DAO.Database, r As DAO.Recordset, strSQL As String
Set d = CurrentDb
If Me.txtEnterNumber = "" Then
    MsgBox "Please Enter Number", , "Error"
    Exit Function
End If
strSQL = "SELECT * FROM amipartnumbers Inner Join jdsubs on amipartnumbers.oemitem=jdsubs.oempartnumber WHERE " & txtEnterNumber.Value & " In (jdsubs.oempartnumber, jdsubs.oemsubnumber)"
Set r = d.OpenRecordset(strSQL)
If r.EOF Then
   MsgBox "BAM # " & Me.txtEnterNumber & " does not exist!", , "No BAM #"
  Set d = Nothing
  Exit Function
End If
'get here if there is a record
r.MoveFirst
'populate whatever textboxes
Me.txtAMINumber = r!Item
Me.txtDescription = r!Description
Me.txtOEMsubnumber = r!OEMsubnumber

Set d = Nothing
Exit Function
End Function