Public Sub getRecordSet()
Call connect 'connection string setup
Set connRs = New ADODB.Recordset
With connRs
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockPessimistic
.ActiveConnection = connWTC

End With

this is the getrecordSet sub