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.
   Dim strDatum As String
 
   ' Pfad in gültigen Pfad für Ihren Computer ändern.
   cn.ConnectionString = _
   "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & _
   "C:\Dokumente und Einstellungen\mYd\Eigene Dateien\Daten\Bericht.mdb"
 
   ' Verbindung öffnen.
   cn.Open
 
   strDatum = Date
 
   ' Abfrage erstellen, die vier Felder abruft.
   strQuery = "SELECT Gewinn FROM Bericht WHERE Datum Like '" & strDatum & "'"
   ' 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