Народ, подскажите.
Есть база на sql

Есить форма в VB есть datacombo и datagrid.
datacombo берет данные по view из sql
datagrid беред данные через ХП с параметром из datacombo. Все это должно динамически менятся т.е. при выборе данных в datacobo должны изменятся все данные в datagrid.
на Click в datacombo у меня такой код:

Dim rst1 As New ADODB.Recordset
Dim cn1 As New ADODB.Connection

Dim pkto As Variant
Dim strSQL As String

Dim start_data As Variant, end_dataa As Variant
Dim x, y, z As Variant

pkto = Me.datacombo.Text
cn1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=axe2;Initial Catalog=AXE2"
cn1.Open
strSQL = "exec axe2_vb_sel_kuda_for_all_param " & pkto
rst1.Open strSQL, cn1, adOpenKeyset, dLockBatchOptimistic, adCmdText

Set datagrid.DataSource = rst1

Set rst1 = Nothing
Set con1 = Nothing


Проблема в том, что после первого клика выводится правильная информация, после второго выдается ошибка :
ODBC SQL SERVER DRIVER shared memory general network error

В чем дело???