Imports System.Data.Odbc
Public DataConn As OdbcConnection
Function FConnect() as Boolean
DataConn = New OdbcConnection
DataConn.ConnectionString = "DSN=MyDSN;UID=dba;PWD=sql;DatabaseName=MyDB;EngineName=MyServer;AutoStop=No;Integrated=No;"
Try
DataConn.Open()
Return True
Catch
'Do err handling
End Try
End Sub