strizzzпоправил хр. проц. в квери аналайзери опять все нормально:

CREATE PROCEDURE dbo.sel
AS
SET NOCOUNT ON
select Тип, Номер_контейнера from baze..main
GO

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

но при вызове из программы ничего не меняется:

Private Sub Command1_Click()
Set cmd.ActiveConnection = cnn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "sel"
Set rs = cmd.Execute
Set Grid.DataSource = rs
End Sub

А какая ошибка выдается
если переписать обработчик так:
Private Sub Command1_Click()
On Error GoTo Err
Set cmd.ActiveConnection = cnn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "sel"
Set rs = cmd.Execute
Set Grid.DataSource = rs
Err:
MsgBox Err.Description
End Sub[/quot]

strizzz2guest1111

никакой ошибки нет, просто пустой меседжбокс. :(
Я кстати, там облажался - перед меткой Err: надо поставить Exit Sub