Can't Retrieve Data

[BigCatMCS]

I'm trying to retrieve data from an Access database. For some reason, I am unable to do so. What is wrong w/ the following code?

Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
cn.ConnectionTimeout = 5
cn.Open "C:\Program Files\Seagate Software\Crystal Reports\Samples\Databases\xtreme.mdb"
Set rs.Open = cn
rs.Open "Select * From Customer", , , , adCmtText
Text1.Text = rs

 

[zemp]

Your connection string is incomplete. See

http://www.connectionstrings.com

for a complete listing of all types of connection strings.

zemp

 

[pweegar]

And for help with ADO, take a look at:

http://www.devguru.com.

It has lots of useful info on ADO (and other topics as well).