Вы используете конкатенацию строк для построения SQL-запроса вместо параметризованных запросов или хранимых процедур. Вот что с этим не так. Вот как это улучшить:
Dim cmdSelect As New System.Data.SqlClient.SqlCommand("SELECT DISTINCT [seat_remain] FROM [a1_ticket] WHERE serv_code = @serv_code ORDER BY [Ticket_no] DESC", SQLData)
cmdSelect.Parameters.AddWithValue("@serv_code", lab5.Text)
Теперь ваш запрос будет работать, и не только этот, но и безопасный от внедрения SQL.