on this line

strSql = "Select * from jabberwocky where PolicyNo ='" & ws.Cells(RowNo, j) & "'"