did you try use parameters instead of put directly Me.SurveyName.Text ......?
try this
dim str as string= Me.SurveyName.Text (or integer or whatever)
comm = New OleDbCommand("Select studentsTotal from Surveys where surveyName= ?", con)
comm.Parameters.AddWithValue("?",str) or comm.Parameters.AddWithValue("surveyName",str)