Public rs As ADODB.Recordset ''''''''''集合集 Public conn As New ADODB.Connection '整个数据库连接对象 Public user As String '保存人运行的用户 Public pass As String '保存运行人的密码 Public cando As String '''''保存运行人的权限 Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, By