Uselsx "*LSXODBC"
%INCLUDE "lsconst.lss"
Sub Initialize
 Dim con As New ODBCConnection
 REM Connect to data source
 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 ..."
 REM Set thread-safe state per user wishes
 If Messagebox("Do you want to set thread-safe?", _
 MB_YESNO + MB_ICONQUESTION, _
 "Thread-safe?") = IDYES Then
   con.ThreadSafeDriver = True
 Else
   con.ThreadSafeDriver = False
 End If
 REM Report thread-safe state
 If con.ThreadSafeDriver Then
   Messagebox "Thread-safe is turned on",,"Thread-safe"
 Else
   Messagebox "Thread-safe is not turned on",, "Not thread-safe"
 End If
 REM Disconnect
 con.Disconnect
End Sub

See Also

ThreadSafeDriver property

Glossary