Dim Cn As ADODB.Connection
'==================================================='
' DATABASE CONNECTION
'==================================================='
'UID(USER ID),PWD(PASSWORD)SERVER NAME
Conn = "UID=" & user & ";PWD=" & password & ";driver=" & "{Microsoft ODBC for Oracle};SERVER=" & server & ";"
Set Cn = New ADODB.Connection
'CREATE CONNECTION
With Cn
.ConnectionString = Conn
.CursorLocation = adUseClient
.Open
End With