DSN Component
Dynamically creates ODBC datasources in applications.
Copyright 1998, Jeffrey K. Hendrickson
Jeff_Hendrickson@msn.com

Register component using REGSVR32, i.e.
REGSVR32 DSN.OCX

'
'	Sample VB, VBScript use of DSN
'
'
'
If Not DSN1.IsValid("TestDSN") Then ' if the DSN does not exist...
    DSN1.DSN = "TestDSN" ' set the DSN name
    DSN1.ServerName = "SIDEV02" ' set the server name
    DSN1.Database = "Wirs31" ' set the database name
    DSN1.ODBCDriver = "SQL Server" 'this is the default value
    DSN1.Description = "This is a description" ' set the description
    DSN1.TrustedConnection = "Yes" ' make connection trusted
    If DSN1.AddDSN Then ' if the add worked...
		DSN1.DeleteDSN ' demonstrate delete
    End If
End If