Беда у меня с этим MS SQL Server - VB

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

Добрый день. Есть форма в проекте на ней помещен DataGrid и два дата пикера. Запускаю форму первый раз, ставлю даты, все круто выводит (допустим поставил 27.02.17 - 27.02.17). Меняю на 26.02.17 - 26.02.17 тоже прекрасно, вывел другой список и на этом все, какую бы дату я не ставил после этого он либо не выводит вообще не чего, либо выводит результат который был за 26.02.17. Сам процесс работает с помощью хранимой процедуры на серваке. Помогает только перезапуск формы, может я что-то не так сделал? Это пробовал

RS.Close
Set RS = Nothing

Сопсна сам код :

Private Sub DTPicker1_KeyDown(KeyCode As Integer, Shift As Integer)
 If KeyCode = vbKeyReturn Then
       Call UpdateConnect2
    End If
End Sub
Private Sub DTPicker2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
        Call UpdateConnect2
    End If
End Sub
Private Sub Form_Load()
 DTPicker1.value = Date
 DTPicker2.value = Date
End Sub
 
Sub UpdateConnect2()
   Set RS = Nothing
    Set RS = New ADODB.Recordset
    SQL = "exec sumandel2  '" & DTPicker1.value & "','" & DTPicker2.value & "' "
    RS.Open SQL, CN, adOpenForwardOnly, adLockReadOnly
    Set DataGrid1.DataSource = RS
    Set RS = Nothing
End Sub

Решение задачи: «Беда у меня с этим MS SQL Server»

textual
                            Листинг программы 
                        
                            RS.Open SQL, CN, adOpenForwardOnly, adLockReadOnly