vb.net สอบถามค่ะ ติดปัญหาที่แท็กบ็อกที่ใช่ในการค้นหาข้อมูล

    Private Sub Textsearch_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Textsearch.TextChanged
        sql = "SELECT tbl_dataroom.datanumberroom, tbl_compact.ID_Compact, tbl_compact.title, tbl_compact.name, tbl_compact.date_compact,tbl_compact.exp_date,tbl_compact.phon " & _
            "FROM tbl_compact LEFT JOIN tbl_dataroom ON tbl_compact.ID_dataroom = tbl_dataroom.ID_dataroom" & _
            "where tbl_compact.ID_Compact like '%" & Textsearch.Text & "%' or tbl_compact.name like '%" & Textsearch.Text & "%'"

        ' sql = "select ID_Compact, title, name from tbl_compact where ID_Compact like '%" & Textsearch.Text & "%' or name like '%" & Textsearch.Text & "%'"

        command = New SqlCommand(sql, connection)
        adapter = New SqlDataAdapter(command)
        dataSt = New DataSet()
        adapter.Fill(dataSt, "sss")

        DataGridView1.DataSource = dataSt.Tables("sss")

    End Sub