Function GetOracleConnectionString(uid As String, pwd As String) As String On Error GoTo ErrorHandler Dim connStr As String connStr = "Provider=MSDAORA.1;User ID=" & uid & ";Password=" & pwd & ";Data Source=YourDataSourceName" GetOracleCon…