By using vba.booksticle.com you agree to our cookie policy, We and our partners operate globally and use cookies, for multiple purposes

948 Steps to 6 Figures by Learning Excel-VBA and Other Skills



Step 425 - Workspace.OpenConnection


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)

   Table of Contents | Send us your feedback | © 2025 All Rights Reserved | Edit