MS Chart frustraction - Resolved

[KinkyWiz]

Hello
I’ve been beating my head against the wall trying to get this MS Chart control to work with my VB 6 and Access 2k and ADO. It just shows the chart but with default values not what I have in my Access db. And, the recordset and connection object is not being created.

I have my db set up like
Year MS Sun Oracle Linux
2000 100 200 300 450
2001 200 250 325 500
2002 150 350 425 375
2003 225 400 325 500
2004 275 500 425 475

and code…

‘ bas module
Option Explicit
Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset

'Make Database Connection
Public Sub main()
    Dim path As String
    path = App.path & "\myChart.mdb"
    cn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.00;data source=" & path & ";"
    cn.Open
    If cn.State = adStateClosed Then
        MsgBox "Connection Error", vbCritical, "Error!"
        End
    Else
        Debug.Print "Connection Object Created"
        cn.CursorLocation = adUseClient
    End If
    
    'Setting Initial data for recordset
    rs.Open "Select * from tblCategory", cn, adOpenDynamic, adLockOptimistic
    Debug.Print "Recordset Object Created"
    
    Call Form1.Show
End Sub

‘ standard form
Private Sub Form_Load()
    MSChart1.ShowLegend = True
    MSChart1.Title = "Companies Past Years Results"
    Set MSChart1.DataSource = rs
    MSChart1.Refresh
End Sub

kudos to anyone solving this

Hal