Public Sub OpenConnect(sConnection As ADODB.Connection, sRecordset As ADODB.Recordset, sStr1 As String)
  Set sConnection = New ADODB.Connection
  sConnection.CursorLocation = adUseClient
    With sConnection
        .Provider = "MSDAORA"
        .ConnectionString = "Data Source=AIS_TEST_2;User ID=SYSTEM;Password=oracle"
        .Mode = adModeRead
        .Open
    End With
  Set sRecordset = New ADODB.Recordset
  sRecordset.Open sStr1, sConnection, adOpenDynamic, _
                      adLockOptimistic, adCmdUnknown
End Sub