Private Sub cb_auftrag_Click()
 
Dim SQL As String
Dim Gesamtstd As Long
Dim Gesamtmin As Long
Dim Gespreis As Long
Dim Nr As String
 
'Recordset öffnen
   oRs.Open "select * from Auftrag order by auftragnr", Conn, adOpenStatic, _
     adLockOptimistic
 
    oRs.Move cb_auftrag.ListIndex
    lbl_Auftragsnummer.Caption = oRs("auftragnr")
    lbl_kunde.Caption = oRs("kunde")
 
oRs.Close
 
Nr = lbl_Auftragsnummer.Caption
 
SQL = "SELECT SUM(Stunden) AS [Std], Sum(Minuten) AS [Min], Sum(gesamtpreis) as" & _
  "[Gesamtpreis] FROM Zeiterfassung where Auftragsnr = '" & Nr & "'"
 
oRs.Open SQL
 
If oRs.RecordCount = 0 Then
oRs.Close
Me.cb_auftrag.Enabled = False
Exit Sub
Else
Gesamtstd = oRs![std]
Gesamtmin = oRs![min]
Gespreis = oRs![gesamtpreis]
 
lbl_Std.Caption = Gesamtstd
lbl_min.Caption = Gesamtmin
lbl_gespreis.Caption = Gespreis
 
oRs.Close
End If
 
oRs.Open "Select * from zeiterfassung where Auftragsnr = '" & Nr & "'", Conn, _
  adOpenStatic, adLockOptimistic
 
' DataGrid mit dem Inhalt des Recordsets füllen
  With DataGrid1
    ' Titel der Tabelle
    '.Caption = "Auftrags Details"
 
    ' Datenanbindung
    Set .DataSource = oRs
 
    ' Spaltenbreiten
    '.Columns(0).Width = 500
    '.Columns(1).Width = 1000
 
    .Columns(2).Width = 1000
    .Columns(3).Width = 1000
    .Columns(4).Width = 1000
    .Columns(5).Width = 1000
    .Columns(6).Width = 1000
    .Columns(7).Width = 1000
    .Columns(8).Width = 1000
 
 
    ' Spaltesichtbarkeit
    .Columns(0).Visible = False
    .Columns(1).Visible = False
 
  End With
  'oRs.close  wenn das am ende steht wird nichts im Datagrid angezeigt.
Lass ich es weg füllt sich das Datagrid, aber ich bekomme den Laufzeitfehler
 
End Sub