怎样利用DSN访问MCCESS数据库

请高手写下用DSN访问数据库代码，谢谢
---------------------------------------------------------------

Sub OpenDataBase()
Set DataCon=Server.CreateObject("ADODB.Connection")
Set Rs=Server.CreateObject("ADODB.Recordset")
DataCon.ConnectionTimeout=20
DataCon.Open "DSN=bbs","sa",""
'Set DBConn = Server.CreateObject("ADODB.Connection")
'DBConn.Open "ProVider=SQLOLEDB;Server=localhost;UID=sa;PWD=;DATABASE=mybbs"
End Sub