Add the following to your DBParm
  "ConnectOption='SQL_DRIVER_CONNECT,SQL_DRIVER_NOPROMPT'"

e.g.
  SQLCA.DBParm = "ConnectString='DSN=MyData;UID=DBA;PWD=SQL'" &
    + "ConnectOption='SQL_DRIVER_CONNECT,SQL_DRIVER_NOPROMPT'"