Dim rst As Object
    Set rst = CreateObject("ADODB.RecordSet")
    rst.ActiveConnection = "DSN=数据源;" & _
                           "UID=用户名;" & _
                           "PWD=密码"
    rst.CursorType = adOpenKeyset
    rst.Source = "select * from tab"
    rst.Open
    Set rst = Nothing