how to access msaccess2000 by visual basic 6

[gilgalbiblewheel]

If I use the late binding then I don't need to use MDAC reference?

   [b]Set cn[/b] = CreateObject("ADODB.Connection")

Compile error:
Invalid outside procedure

Is this the correct way of presenting it (do I have to use sub and end sub)?

    Dim connectionString As String
    Dim query As String
    Dim cn
    Dim cmd
    Dim rs
    
    Set cn = CreateObject("ADODB.Connection")
    Set cmd = CreateObject("ADODB.Command")
    Set rs = CreateObject("ADODB.Recordset")
    
    query = "SELECT text_data from bible"
    connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\[URL unfurl="true"]wwwroot\wheelofgod\kjv.mdb;User[/URL] Id=admin;Password=;"
    
    cn.connectionString = connectionString
    cn.Open
    cmd.ActiveConnection = cn
    cmd.CommandText = query

    Set rs = cmd.Execute
    
    While rs.EOF <> True
        MsgBox (rs(0))
        rs.MoveNext
    Wend
        
    rs.Close
    cn.Close

 

[CajunCenturion]

Yes, you have to put this code inside of the Sub/End Sub and then call the procedure at the appropriate time.

Good Luck
--------------
As a circle of light increases so does the circumference of darkness around it. - Albert Einstein

 

[CajunCenturion]

Let me back up a minute. You need to take into account the scope of these objects. Where and how you declare the objects defines that score, and they probably should declare inside a module with global score.

You should also include code to close the connections and release the objects before terminating the application.

Good Luck
--------------
As a circle of light increases so does the circumference of darkness around it. - Albert Einstein

 

[gilgalbiblewheel]

Ok thanks. The sub did it. But I didn't understand your last posting. I'm new at scripting with VB 6.