Examples: ODBCConnection class
This agent declares a new ODBCConnection object and connects to a user-specified data source.
Uselsx "*LSXODBC"
Sub Initialize
Dim con As New ODBCConnection
con.ConnectTo(Inputbox("ODBC data source name", "DSN"))
While Not con.IsConnected
dsn = Inputbox("ODBC data source name", _
"Connection not made ...")
If dsn = "" Then Exit Sub
con.ConnectTo(dsn)
Wend
Messagebox "Connected to " & con.DataSourceName,, _
"Connection made ..."
con.Disconnect
End Sub