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.
Public Sub DBOpen()
conn = "Provider=MSDASQL.1;" & _
"Data Source=MS" & txtServer.Text & ";Password=*****;User ID=******;"
'oracle
Set iOraConn = New ADODB.Connection
'MsgBox conn
iOraConn.ConnectionString = conn
iOraConn.Open
Set iOraData = New ADODB.Recordset
iOraData.CursorType = adOpenKeyset
iOraData.LockType = adLockOptimistic
'iOraData.Source = sql
Set iOraData.ActiveConnection = iOraConn
If Err.Number <> 0 Then
MsgBox "There was an error connecting to the database. Ending program."
Call KillXL
Set iOraConn = Nothing
Set iOraData = Nothing
End
End If
End Sub