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

Формулировка задачи:

Здравствуйте. Помогите, пожалуйста.
У меня в sql server есть запрос - точнее представление запрос.

[/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, [Дата начала]

И есть файл xls куда я вставляю результат sql запроса. Мне нужно, чтобы в xls в ячейке (A2) пользователь написал дату и уже эту дату подставить в sql запрос как переменную

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)) 

Решение задачи: «Как из excel вставить переменную в запрос sql»

textual
                            Листинг программы 
                        
                            WHERE     (dbo.Sevices.DATE_IN <> dbo.Sevices.DATE_OUT) AND (dbo.Sluch.USL_OK = '3') AND (dbo.Sevices.DATE_OUT >= CONVERT(DATETIME, 
                      'myDate=[]', 102)) AND (dbo.Sevices.DATE_OUT <= CONVERT(DATETIME, 'myDate1=[]', 102))