ช่วยผมดู code ให้หน่อยครับ ค้นหาข้อมูล 3 เงื่อนไข แล้วกดปุ่มค้นหา

Private Sub Cmdsear_Click()
 sqlsearch = " SELECT *  FROM Member WHERE (Mem_Id =" & txtSearch.Text & ")"

                    With rsReg
                            If .State = adStateOpen Then .Close
                            .ActiveConnection = conn
                            .CursorType = adOpenForwardOnly
                            .CursorLocation = adUseClient
                            .Open sqlsearch
                                If .RecordCount <> 0 Then Set mfgReg.DataSource = rsReg
                    
                    End With
                    With mfgReg
                                .TextMatrix(0, 0) = "ÃËÑÊÊÁÒªÔ¡"
                                .TextMatrix(0, 1) = "¤Ó¹Ó˹éÒ"
                                .TextMatrix(0, 2) = "ª×èÍ"
                                .TextMatrix(0, 3) = "¹ÒÁÊ¡ØÅ"
                                .TextMatrix(0, 4) = "·ÕèÍÂÙè"
                                .TextMatrix(0, 5) = "àÅ¢·ÕèºÑµÃ»ÃЪҪ¹"
                                .TextMatrix(0, 6) = "Çѹ/à´×͹/»Õ"
                                .TextMatrix(0, 7) = "à¾È"
                                .TextMatrix(0, 8) = "àºÍÃìâ·Ã"
                                .TextMatrix(0, 9) = "ÇѹàÃÔèÁ·Ó§Ò¹"
                                .TextMatrix(0, 10) = "Çѹ·ÕèÅÒÍÍ¡"
                                 .TextMatrix(0, 11) = "ʶҹÐÀÒ¾"
                             
                                .ColWidth(0) = 1000
                                .ColWidth(1) = 1000
                                .ColWidth(2) = 1000
                                .ColWidth(3) = 1200
                                .ColWidth(4) = 1000
                                .ColWidth(5) = 1700
                                .ColWidth(6) = 1100
                                .ColWidth(7) = 800
                                .ColWidth(8) = 1200
                                .ColWidth(9) = 1200
                                .ColWidth(10) = 1200
                                .ColWidth(11) = 1200
                    End With
                    
End Sub