如何将将条件中数值型改成文本型？

Private Sub Form_Load()
    Dim ctr As Control
    For Each ctr In Me.Controls
        If ctr.Section = acDetail And ((TypeOf ctr Is TextBox) Or (TypeOf ctr Is ComboBox) Or (TypeOf ctr Is CheckBox)) Then
        ctr.OnDblClick = "=allDblClick()"
        End If
    Next
End Sub
Private Function allDblclick()

    DoCmd.OpenForm "档案生成", , , "[档案号]=" & Me.档案号

End Function

谁能帮我把 DoCmd.OpenForm "档案生成", , , "[档案号]=" & Me.档案号，这句话修改为文本型的呀，原来我的档案号是数值型，代码通过，后来将档案号改为文本型后，提示标准表达式中数据类型不匹配。