ADO Error

[spyder]

Greetings,

I have a Problem that is really nagging me. I have a VB app that is trying to get data in an Access 2000 .mdb

here is a code snippet


adoDriver = "Driver={Microsoft Access Driver (*.mdb)};"
adoPath = "dbq=" & DataBaseLocation & ";"
adouser = ";"
adoPassword = ""

Dim rs As ADODB.Recordset

' used temporarily until code is working
strConnection = adoDriver & adoPath & adouser & adoPassword

On Error GoTo handleErr
dbCheckOut.ConnectionString = strConnection
dbCheckOut.Open
cmCheckOut.ActiveConnection = dbCheckOut
cmCheckOut.CommandText = "select * from Machine"
rs = cmCheckOut.Execute
On Error GoTo 0


dbCheckout is the connection object
and cmCheckout is the command object

Both are declared public


The Problem is that the rs = mcCheckout.execute is saying invalid use of property and I have not clue as to why. I have looked in Technet and even downloaded a sample app from MS. And the sample code was "identical". And the references were nearly identical. Anyone have a clue as to why?

Thanks much
-=D=-

[ShIzO]

what version of MDAC are u using?

if you've got 2.1 then you need to use 2.5 i guess because you're running Access 2000.
let me know if that works.

[spyder]

MDAC is not the problem... I don't recall what version i have, but I downloaded it of off MS about a month ago. So it is current.

Here is what the problem was, I'm Dumb :-)

The way that it needed to be done was this. I declared the database and connection object public. But that just make object set, It doesen't set it to anything.

In the Form, I needed to do this

public DBCheckout as adodb.connection
public CNCheckout as adodb.command

sub getdata

set dbCheckout = new adodb.connection
set cnCheckout = new adodb.command

end sub


So what it ammounts to is that I forgot the 'new' keyword. So Like I said, I'm Dumb :-)

Anyway, It works perfectly now

Thanks for Replying
-=D=-