cn.Open
rs.Open "SELECT s.id, s.nachname + ', ' + s.vorname AS spielername," & _
  "s.geb_datum, ' ' as newfield FROM spieler s WHERE" & _
  "s.verein_id = " & ArrMisc(0) & " ORDER BY s.id", cn
 
[color=red]
While Not rs.EOF
If rs!geb_datum <> "" Then
'rs!newfield = DateDiff("yyy", rs!geb_datum, datum) 'variable datum ist das _
  aktuelle datum ... kommt NICHT aus der DB
'rs.Fields(2) = DateDiff("yyy", rs!geb_datum, datum)
MsgBox (DateDiff("yyyy", rs!geb_datum, datum))
End If
rs.MoveNext
Wend
[/color]
 
Set grd_1.DataSource = rs

Gru?

RollingStones