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