Несколько способов сделать это.
Проблема с вашим запросом заключается в том, что вы не выполнили второй шаг - получили ИТОГО количество ответов за Q2.
Вот мой SQLFiddle: http://www.sqlfiddle.com/#!9/898b3f/7
SELECT TYPE,
COUNT(VALUE),
(select count(*) from table1 where code = 'Q2') ,
COUNT(VALUE) / (select count(*) from table1 where code = 'Q2') as score
FROM Table1
where
CODE = 'Q2' AND
VALUE in (1,2)
GROUP BY TYPE
необходимо обеспечить правильно отформатированный connectionstring, такой как:
Dim str As String
str = "Data Source=myServerAddress;Initial Catalog=myDataBase;User Id=myUsername;Password=myPassword;"
Dim cn As New SqlConnection(str)
Необходимо указать базу данных с ключевым словом "Источник данных" или "Сервер". Вот пример:
Data Source=myServerAddress;Initial Catalog=myDataBase;Integrated Security=SSPI;