Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Dim x As String
x = DE.CN.ConnectionString
DE.CN.Open
DE.rsCMD.Open
DE.rsCMD.MoveFirst
Debug.Print DE.rsCMD.Fields(1).Value
DE.rsCMD.Close
DE.CN.Close
DE.CN.ConnectionString = Replace(x, "Demo Data", "Live Data")
DE.CN.Open
DE.rsCMD.Open "valid SQL command", DE.CN
DE.rsCMD.MoveFirst
Debug.Print DE.rsCMD.Fields(1).Value