标题: 请帮助解释一下:这是下载的范例中的模块 [打印本页] 作者: yanwei82123300 时间: 2009-9-27 10:28 标题: 请帮助解释一下:这是下载的范例中的模块 Public Function k(strCodeID As String, lngY As Long, lngM As Long) As Long
Dim strSQL As String
Dim rs As Object
Dim cn As Object
Set cn = Application.CurrentProject.Connection
Set rs = CreateObject("ADODB.Recordset")