Article ID: 191716
Article Last Modified on 11/7/2003
Dim cn As New rdoConnection
Dim rs As rdoResultset
cn.CursorDriver = rdUseOdbc
cn.Connect = "dsn=pubs2;database=pubs;uid=<username>;pwd=<strong password>"
cn.EstablishConnection rdDriverNoPrompt, False
Set rs = cn.OpenResultset("Select * from authors", rdOpenDynamic,
rdConcurValues, rdExecDirect)
Set MSRDC1.Resultset = rs
'Text1.DataField = "au_lname" 'need this line of code to actually
'populate the text box.
Additional query words: kbRDO200bug kbVBp600bug kbdse kbDSupport kbVBp
Keywords: kbbug kbpending KB191716