1: 2:
first = "Select count(Response)from Response where SurveyID = " & Me.lblSurveyID.Text & " and QuestionID =1 and Response = 'A'"