Module Module1
    Public Const ODBC_ADD_DSN As Short = 1 ' 添加數據源
    Public Const ODBC_CONFIG_DSN As Short = 2 ' 配置數據源
    Public Const ODBC_REMOVE_DSN As Short = 3 ' 移除數據源
    Public Const vbAPINull As Integer = 0 ' 空指針
    Public Declare Function SQLConfigDataSource Lib "ODBCCP32.DLL" (ByVal hwndParent As Integer, ByVal fRequest As Integer, ByVal lpszDriver As String, ByVal lpszAttributes As String) As Integer

End Module