Public Function OpenAdaptiveServerAnywhere_ADODB(ByVal server As String,ByVal database As String,ByVal user As String,ByVal pass As String,ByVal Driver As String) As ADODB.Connection

Dim connString As String
Dim conn As New ADODB.Connection

connString = "DRIVER=" & Driver & ";"
connString = connString & "Start=" & server & ";"
connString = connString & "DBF=" & database & ";"
connString = connString & "UID=" & user & ";"
connString = connString & "PWD=" & pass & ";"
Try
conn.Open(connString)
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
Return conn
End Function

PS:

Driver=("Adaptive Server Anywhere X.0") or ("...\dbodbcX.dll")

server="...\dbengX.exe"

database=DBname

X：版本号。