Dim wrkODBC As DAO.Workspace
  Dim Test As DAO.Connection
  Dim RecSet As DAO.Recordset
  Set wrkODBC = CreateWorkspace("SKODBCWorkspace", "admin", "", dbUseODBC)
  Set Test = wrkODBC.OpenConnection("Test1", , True, "ODBC;DSN=sk;UID=skuser;DBQ=SERV;PWD=xxx;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=F;BAM=IfAllSuccessful;NUM=NLS;DPM=F;MTS=T;MDI=F;CSR=F;FWC=F;FBS=64000;TLO=0;;TABLE=SKUSER.OM")
  Set RecSet = Test.OpenRecordset("SELECT ID,NAME FROM OM WHERE ID=100 OR ID=110", dbOpenSnapshot)
  RecSet.MoveFirst
  RecSet.FindFirst ("ID=110")
  Application.ActiveSheet.Cells( 1 ,  1 ) = RecSet.Fields( 1 ).Value

RecSet.FindFirst ("ID=110")