Dim myYN As Integer
Public strSQL As String, gxpath As String
Public Cn As Object
Public Rs As Object
'功能:桌面路径
Private Declare Function SHGetFolderPath Lib "shfolder.dll"
Alias "SHGetFolderPathA" (ByVal hwndOwner As Long, _
ByVal nFolder As Long, ByVal hToken As Long, ByVal
dwReserved As Long, ByVal lpszPath As String) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As
Long
Private Const CSIDL_DESKTOP = &H0
Private Const SHGFP_TYPE_CURRENT = &H0
Public Function GetMyFolderPath() As String
Dim sBuf As String
sBuf = Space$(255)
SHGetFolderPath GetDesktopWindow, CSIDL_DESKTOP, 0&,
SHGFP_TYPE_CURRENT, sBuf
sBuf = Trim$(sBuf)
GetMyFolderPath = Left$(sBuf, Len(sBuf) - 1)
End Function
'功能:桌面路径
Public Sub myCS() '连接 Access 数据库
Dim strPTR As String
On Error GoTo ErrorHandler
Set Cn = CreateObject("ADODB.Connection")
Set Rs = CreateObject("ADODB.Recordset")
strPTR = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
gxpath
Cn.Open strPTR
Exit Sub
ErrorHandler:
MsgBox Err.Description, , Err.Number
End
End Sub