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

Question

Function function2()
Private Declare Sub Sleep Lib "kernel32 " (ByVal dwMilliseconds As Long)
Dim p As IntegerSet 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
第二句出错了，第二句应该放在哪？请指教下，谢谢！

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

Public Declare Sub Sleep Lib "kernel32 " (ByVal dwMilliseconds As Long)
放入一个标准模块中去~~~

Answer 5

放在代码的开头 declare应该放在任何的sub或者function定义之前

Answer 6

对头,你的Function function2()之前可能还有其他方法或函数