帮我看看这句代码，，总是提示有问题

AXZ1031

Private Sub CommandButton1_Click() '查询
    Image1.Picture = LoadPicture("")
    Dim MYRANGE As Range
    Dim i As Integer, MyPic$
    With Sheets("sheet1")
        Set MYRANGE = .Range("A5", .Range("A65536").End(xlUp)).Find(TextBox37.Value)
        If Not MYRANGE Is Nothing Then
            For i = 1 To 36
                Me.Controls("TEXTBOX" & i) = .Cells(MYRANGE.Row, i + 1)
            Next i
            MyPic = ThisWorkbook.Path & "\照片\" & TextBox37.Text & ".jpg"
            If Dir(MyPic) <> "" Then
                Image1.Picture = LoadPicture(MyPic)
                Image1.PictureSizeMode = 1
            End If
        Else
            MsgBox "没有找到！" & TextBox37
        End If
    End With
End Sub

dysvip

MsgBox "没有找到！" & TextBox37

后面的文本框可以直接写吗

AXZ1031

能不能帮我设置
下

dysvip

你的原表插入的有很多控件，如图框、文本框
没附件没发测试啊
我新手，很多语法没用过，如end. find
你先在倒数第四行末尾加上  . value
自己逐行测试，哪出错改哪