ODBC connection failed

[PK Odendaal]

This code fails to open the connection although I have tested the ODBC connection under administrative tools.

Dim wsODBC As Workspace
Set wsODBC = DBEngine.CreateWorkspace("ODBCWorkspace", "admin", "", dbUseODBC)
Workspaces.Append wsODBC
Dim Conn As Connection
Set Conn = wsODBC.OpenConnection("Conn1", , , "ODBC;DSN=IBSMSfreestate;")
Dim rs As Recordset
Set rs = Conn.OpenRecordset("accountterms", dbOpenSnapshot)