示，在對話框中填寫下麵的內容
選擇數據庫Northwinds所在路徑。單擊完成，退出ODBC設備管理器。
啟動一個新的VB工程，在窗體的Load事件中輸入下麵的代碼：
PrivateSubForm_Load()
DimcnAsADODB.Connection
Setcn=NewADODB.Connection
'SetConnectionproperties
cn.ConnectionString=\"DSN=RDCNwind;UID=;PWD=;\"
cn.ConnectionTimeout=30
cn.Open
Ifcn.State=adStateOpenThen_
MsgBox\"ConnectiontoNorthWindSuccessful!\"
cn.Close
EndSub
按F5運行程序，看看，一個消息框彈出來告訴你連接成功了。請注意，這裡我特別注明了是ADODB.Connection,而不是ADOR.Connection，這樣做是為了將二者區分開（如果你引用了ADODB和ADOR的話，這樣做很有必要）。連接字符串看上去同RDO的連接字符串差不多。事實上，二者確實差不多。
如果我們要訪問一個SQLserver數據庫，你的Connection代碼看上去應象下麵所示：
'設置連接屬性cn.Provider=\"MSDASQL\"
請前往ｏｏｐ．ｔｗ閱讀本書最新內容
cn.ConnectionString=\"driver={SQLServer};\"&\"server=prod1;uid=bg;pwd=;database=main\"
cn.Open
\"Provider\"屬性指向SQLServer的OLEDBProvider.
回到我們的示例程序，讓我們創建一個Recordset對象來訪問“Orders”表，並從該表的\"ShipCountry\"字段中產生頭十個不重複的國家名。修改窗體Load事件中的代碼，讓它看上去象下麵這樣。
PrivateSubForm_Load()
DimcnAsADODB.Connection
DimrsAsADODB.Recordset
DimsSQLAsString
DimsOutAsString
DimCountAsInteger
Setcn=NewADODB.Connection
Setrs=NewADODB.Recordset
'SetpropertiesoftheConnection.
cn.ConnectionString=\"DSN=RDCNwind;UID=;PWD=;\"
cn.ConnectionTimeout=30
cn.Open
Ifcn.State=adStateOpenThen_
MsgBox\"ConnectiontoNorthWindSuccessful!\"
sSQL=\"SELECTDISTINCTOrders.ShipCountryFROMOrders\"
Setrs=cn.Execute(sSQL)
'Enumeratetherecordset
sOut=\"\"
ForCount=1To10
sOut=sOut&rs(\"ShipCountry\")&vbCrLf
rs.MoveNext
NextCount
MsgBoxsOut,vbExclamation,\"ADOResults\"
cn.Close
EndSub
運行程序後，你會看到如下圖所示的消息框。
：示所碼代的麵下象就，性屬noitcennoC的己自有擁象對該，象對tesdroceR的立獨個一建創要需你，能功的多更取獲要想你果如。rosrucdrawrof和的讀隻是象對tesdorceR個這前目，是的幸不
)(daoL_mroFbuSetavirP
tesdroceR.BDODAsAsrmiD
gnirtSsALQSsmiD
gnirtSsAtuOsmiD
regetnIsAtnuoCmiD
tesdroceR.BDODAweN=srteS
"\sredrOMORFyrtnuoCpihS.sredrOTCNITSIDTCELES"\=LQSs
cimanyDnepOda,"\;=DWP;=DIU;dniwNCDR=NSD"\,LQSsnepO.sr
noitamrofninoitcennoCtesdroceRtropeR'
"\ofnInoitcennoC"\,,noitcennoCevitcA.srxoBgsM
tesdrocerehtetaremunE'
"\"\=tuOs
01oT1=tnuoCroF
fLrCbv&)"\yrtnuoCpihS"\(sr&tuOs=tuOs
txeNevoM.sr
tnuoCtxeN
"\stluseRODA"\,noitamalcxEbv,tuOsxoBgsM
esolC.sr
buSdnE
。係關的行平是象對tesdroceR和象對noitcennoC，下況情種這在，住記請但，接連立建源據數程遠同象對noitcennoC用以可你然雖。標遊的錄記的回返詢查LQS從表代個一開打法方nepO的象對tesdroceR。的到不做ODR和OAD是點一這。的立獨是tesdroceR的中碼代本是但，樣一例前同果結的回返碼代麵上
結總
如慮考該應你在現以所。ODR和OAD代取會將ODA來將在，諾承軟微。角一山冰的能功的大強ODA了紹介你向僅文本
