Uselsx "*LSXODBC"

Sub Initialize
Dim con As New ODBCConnection
Dim msg As String
dsnList = con.ListDataSources
For n% = Lbound(dsnList) To Ubound(dsnList)
msg = msg & dsnList(n%) & Chr(10)
Next
Messagebox msg,,"List of DSNs"
con.Disconnect
End Sub