帮忙纠正一下end sub后只能跟注释

Function function2()
Private Declare Sub Sleep Lib "kernel32 " (ByVal dwMilliseconds As Long)
Dim p As Integer

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open ("Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=独占设备;Data Source=PC-20110915FGKA")
sql = "select * from PROCESS where jczhuangtai=0"
rs.Open sql, cn, 1, 3
rs.MoveFirst
p = 0
Do While rs.EOF = False
cn.Execute "update DCT set zhuangtai=0 where zhuangtai=1"
cn.Execute "update COCT set zhuangtai1=0 where zhuangtai1=1"
cn.Execute "update CHCT set zhuangtai2=0 where zhuangtai2=1"
Adodc8.Recordset.Requery
Adodc9.Recordset.Requery
Adodc14.Recordset.Requery
Sleep 2000
Call function1
Sleep 2000
rs.MoveNext
Loop
End Function
第二句出错了，第二句应该放在哪？请指教下，谢谢！

Private Declare Sub Sleep Lib "kernel32 " (ByVal dwMilliseconds As Long)
Function function2()

+1
函数、过程中是不能声明其他函数的。

这段代码的上面是function fuction1（） ...... end function
我把这个声明放到你们说的前面还是function2后一句，一样会出现编译错误：在end sub，end function或end属性后面只能出现注释 的提示
 

把 Private Declare Sub Sleep Lib "kernel32 " (ByVal dwMilliseconds As Long)
放到“通用”的“声明”中去吧

把API申明放到外面去.