请教大虾如何能让上面获取硬盘序列号的代码可用

dhwx

'**************************** 获取硬盘序列号
'1
'Dim sa As String
   ' sa = CurrentProject.Path & HDSerialNumRead.dll
'Private Declare Function HDSerialNumRead Lib "sa" () As String

'2
'Private Declare Function HDSerialNumRead Lib "CurrentProject.Path & \HDSerialNumRead.dll" () As String


'请教大虾如何能让上面获取硬盘序列号的代码可用，只须把HDSerialNumRead.dll要放在数据库的相同目录就行。谢谢！！！！

'1
'HDSerialNumRead.dll要指定放在E:\注册\FFF\ 目录里。
'Private Declare Function HDSerialNumRead Lib "E:\注册\FFF\HDSerialNumRead.dll" () As String

'2
' HDSerialNumRead.dll要放在c:\windows\ 系统目录里。
Private Declare Function HDSerialNumRead Lib "HDSerialNumRead.dll" () As String