函数调用问题，请进.....

[ezyw]

模块中定义了如下函数：
Sub initRSTemp(ByRef rs As ADODB.Recordset, ByVal strSql As String)
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open strSql, cnnMain, 3, 3
End Sub

在窗体中调用：
Dim Path As New FileSystemObject
Dim rsTemp As New ADODB.Recordset
Dim strFilePath, strFileName
initRSTemp rsTemp, "select filename from admin where lev='1'"
Do While Not rsTemp.EOF
strFilePath = "Model 1_" & rsTemp.Fields(0).Value
If Not Path.FolderExists(strFilePath) Then
Path.CreateFolder (strFilePath)
End If
rsTemp.MoveNext
Loop

有何错误？？？？？