Private Sub Command1_Click()
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open ("DSN=baze")
Set rs = New ADODB.Recordset
rs.ActiveConnection = cnn
rs.CursorLocation = adUseClient
rs.Open "select * from payment", cnn, adOpenDynamic, adLockOptimistic
Set Grid.DataSource = rs

'rs.Close
'Set rs = Nothing
'cnn.Close
'Set cnn = Nothing
End Sub

Private Sub Command2_Click()
Dim p As ADODB.Parameter
Dim cm As ADODB.Command
Set cm = New ADODB.Command

Set cm.ActiveConnection = cnn

cm.CommandType = adCmdStoredProc
cm.CommandText = "get_name"
....
End Sub


По первой кнопке программа устанавливает соединение и делает выборку из таблицы.

По второй кнопке - на выделенной строке программа вылетает.

Никто не знает почему?

*чувствует себя идиотом*

спасибо