Как из excel вставить переменную в запрос sql - VB

[/SRC]
SELECT     TOP (100) PERCENT dbo.Sluch.Sluch_ID AS [№ случая], dbo.Sluch.LPU_1 AS ЛПУ, dbo.Sluch.PODR AS Подразделение, 
                      dbo.Sevices.DATE_IN AS [Дата начала], dbo.Sevices.DATE_OUT AS [Дата конца], SUBSTRING(dbo.Sluch.NHISTORY, PATINDEX('%UZO%', 
                      dbo.Sluch.NHISTORY) - 1, LEN(dbo.Sluch.NHISTORY) + 1) AS кто_завел
FROM         dbo.Sluch INNER JOIN
                      dbo.Sevices ON dbo.Sluch.Sluch_ID = dbo.Sevices.Sluch_ID INNER JOIN
                      dbo.Users ON dbo.Sluch.User_ID = dbo.Users.User_ID
WHERE     (dbo.Sevices.DATE_IN <> dbo.Sevices.DATE_OUT) AND (dbo.Sluch.USL_OK = '3') AND (dbo.Sevices.DATE_OUT >= CONVERT(DATETIME, 
                      '2014-03-01 00:00:00', 102)) AND (dbo.Sevices.DATE_OUT <= CONVERT(DATETIME, '2014-04-30 00:00:00', 102))
ORDER BY ЛПУ, Подразделение, dbo.Sluch.DATE_1, [Дата начала]

WHERE     (dbo.Sevices.DATE_IN <> dbo.Sevices.DATE_OUT) AND (dbo.Sluch.USL_OK = '3') AND (dbo.Sevices.DATE_OUT >= CONVERT(DATETIME, 
                      '[b]2014-03-01 00:00:00[/b]', 102)) AND (dbo.Sevices.DATE_OUT <= CONVERT(DATETIME, '[b]2014-04-30 00:00:00[/b]', 102))