一个调用带参数的存储过程的问题！急！

[yjqqzw000]

存储过程中的两个参数（begindate，enddate）均为datetime型

代码如下：

Dim cnn1 As New ADODB.Connection
Dim command1 As New ADODB.Command
Dim parm_begindate As ADODB.Parameter
Dim parm_enddate As ADODB.Parameter
Dim strCnn As String



Private Sub Command1_Click()
If Len(Text1.Text) <> 8 Then
MsgBox ("日期位数不对")
Exit Sub
End If
If Len(Text2.Text) <> 8 Then
MsgBox ("日期位数不对")
Exit Sub
End If

Set parm_begindate = New ADODB.Parameter
Set command1 = New ADODB.Command
parm_begindate.Type = adDate
parm_begindate.Size = 8
parm_begindate.Direction = adParamInput
parm_begindate.Value = Format(Text1.Text, "yyyy - mm - dd")
command1.Parameters.Append
parm_begindate


Set parm_enddate = New ADODB.Parameter
Set command1 = New ADODB.Command
parm_enddate.Type = adDate
parm_enddate.Size = 8
parm_enddate.Direction = adParamInput
parm_enddate.Value = Format(Text2.Text, "yyyy - mm - dd")
command1.Parameters.Append parm_enddate
command1.ActiveConnection = cnn1
command1.CommandText = " selposdata "
command1.CommandType = adCmdStoredProc
End Sub

Private Sub Form_Load()
Set cnn1 = New ADODB.Connection
strCnn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=SettleDB;Data Source=GNETDATA\GNETDATA"
cnn1.Open strCnn
End Sub

Private Sub Form_Unload(Cancel As Integer)
cnn1.Close
Set cnn1 = Nothing
End Sub

运行时在command1.Parameters.Append
处出错，显示编译错误，参数不可选！
请问是怎么回事！

[maomaotwo]

这样写就没问题了，我成功运行的例子！
Private Sub ZhuanHuan_Click(Index As Integer)
Dim Conn As ADODB.Connection
Dim ZuiDaHao As String
Dim XuHao As Long
Set Conn = New ADODB.Connection
Conn.Open LJXinXi, LJXinXi1, LJXinXi2
Dim cm As ADODB.Command
Dim p, p1, p2, p3, p4, p5 As ADODB.Parameter
Set cm = New ADODB.Command
Set cm.ActiveConnection = Conn
cm.CommandType = adCmdStoredProc
cm.CommandText = "dbo.DangAnZhuanHuan"
Select Case Index
Case 0
Case 1
Case 2
Case 3
End Select
Set p = cm.CreateParameter("zhuangtai", adChar, adParamInput, 1, Index)
Set p1 = cm.CreateParameter("danganhao", adChar, adParamInput, 9,DangAnHao）
Set p2 = cm.CreateParameter("weizhihao", adChar, adParamInput, 30, WeiZhiHao)
Set p3 = cm.CreateParameter("zhihanghao", adChar, adParamInput, 8, ZhiHangHao)
Set p4 = cm.CreateParameter("baoquanbiaozhi", adChar, adParamInput, 9, Index)
Set p5 = cm.CreateParameter("shunxuhao", adInteger, adParamInput, 5, XuHao)
cm.Parameters.Append p
cm.Parameters.Append p1
cm.Parameters.Append p2
cm.Parameters.Append p3
cm.Parameters.Append p4
cm.Parameters.Append p5
cm.execute
End Sub