Прошу ногами не пинать
Собственно надо получить сумму столбца.
Не знаю что делать дальше, как записать результат в переменную!

Поправте пожалуста, если можно с коментариями.

Работает только код подключения к базе с запросом.
Dim objConnection
Dim strConnectionString
Dim lngValue
Dim strSQL
Dim objCommand
Dim SUMKOL

strConnectionString = "DRIVER={SQL Server};SERVER=DIMON\WINCC;DATABASE=CC_Dispetch_06_03_01_14_01_50R;UID=;PWD="

strSQL = "SELECT SUM(Soll_Cold_Water) FROM UA#Ricipe"

Set objConnection = CreateObject("ADODB.Connection")
objConnection.ConnectionString = strConnectionString
objConnection.Open

Set objCommand = CreateObject("ADODB.Command")

objCommand.ActiveConnection = objConnection
objCommand.CommandText = strSQL
objCommand.Execute

Set objCommand = Nothing
objConnection.Close
Set objConnection = Nothing

Огромное тебе человеческое СПАСИБО!