With oConn
  .Provider = MSDASQL
  .ConnectionString = sConn
  .Properties("Persist Security Info") = False
  .CursorLocation = adUseServer
  .Open
End With
With rs
  .ActiveConnection = oConn
  .CursorType = adOpenStatic
  .LockType = AdLockOptimistic
  .Source = sSQL
  .Open
End With

____________________________________________
Nur die Dummen wissen alles selbst am besten.