Option Explicit
' Verweis auf Microsoft ActiveX Data Objects 2.0 Library setzen.
Private rsProducts As New ADODB.Recordset
Private cn As New ADODB.Connection
 
Private Sub Form_Load()
   Dim strQuery As String ' SQL-Abfragezeichenfolge.
 
   ' Pfad in gültigen Pfad für Ihren Computer ändern.
   cn.ConnectionString = _
   "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & _
   "C:\Programme\Microsoft Visual Studio\VB98\nwind.mdb" ' <-Diesen Pfad ggf. 
   ' ändern.
 
   ' Verbindung öffnen.
   cn.Open 
 
   ' Abfrage erstellen, die vier Felder abruft.
   strQuery = "SELECT Artikelname, Einzelpreis, " & _
   "Lagerbestand, Bestellte_Einheiten FROM Artikel WHERE Lieferanten-Nr = 1"
   ' Recordset öffnen.
   rsProducts.Open strQuery, cn, adOpenKeyset
   ' DataSource-Eigenschaft auf Recordset setzen.
   With MSChart1
      .ShowLegend = True
      Set .DataSource = rsProducts
   End With
End Sub

Mfg MyD