Dim sConnect As String
strDatabase = "db_rpt" Set oWork = CreateWorkspace("ODBCWorkspace", "Admin", "", dbUseODBC) oWork.DefaultCursorDriver = dbUseNoCursor sConnect = "ODBC;DATABASE=" & strDatabase & ";UID=" & strUserName & ";PWD=" & strUserPass & ";DSN=" & strDSN & ";" Set rConn = oWork.OpenConnection("Conn2", dbDriverNoPrompt, True, sConnect) |