Hi Steve,

Try this - it worked on my NT box.

VB Code:
  1. Option Explicit

  2.  
  3. Private Declare Function SQLManageDataSources Lib "ODBCCP32.DLL" (ByVal hwnd As Long) As Boolean

  4.  
  5. Private Sub Command1_Click()

  6.  
  7. Dim bln As Boolean

  8.  
  9.     bln = SQLManageDataSources(CLng(Me.hwnd))

  10.  
  11. End Sub