Иваныч

Ребята помогите пзл. разобраться с DED
не получаеться и все тут

Private Sub Form_Load()

Dim cnnDE As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rst As New ADODB.Recordset

Dim p As ADODB.Parameter
Dim p1 As ADODB.Parameter
Set p = New ADODB.Parameter
Set p1 = New ADODB.Parameter

With envVagons.cnnVPO
If .State = adStateOpen Then
.Close
End If
.ConnectionString = cnnMain.ConnectionString
.Open
End With
Set cnnDE = envVagons.Connections('cnnVPO')

With cmd
.ActiveConnection = cnnDE
.CommandType = adCmdStoredProc
'set p = .CreateParameter(

.CommandText = CStr(envVagons.rsdbo_VPO_GetRecByData.Source)
End With


With p
.Size = 20
.Name = 'LastName'
.Type = adDBTimeStamp
.Direction = adParamInput
.Value = CDate('08/09/2001')
End With

With p1
.Size = 20
.Name = 'LastName1'
.Type = adDBTimeStamp
.Direction = adParamInput
.Value = CDate('09/09/2001')
End With

With cmd
.Parameters.Append p
.Parameters.Append p1
Set rst = .Execute(, , adCmdUnknown)
End With

Set MSHFlexGrid1.DataSource = rst
cn.Close

End Sub