Public Sub grid_geburtstage_füllen()
Dim rs As New ADODB.Recordset
 
    sqlsuche = suchen("SELECT LEFT(Datum, 6) AS Datum, RIGHT(Datum, 4) as Jahr," & _
      "Name, Geschenk FROM Geburtstage", rs)
 
    With grid_geburtstage
        .LockUpdate True
 
        .ColumnAdd , , 950, ALIGNMENT_CENTER, , , , , SORTDATE  ' Datum
        .ColumnAdd , , 700, ALIGNMENT_CENTER                    ' Jahr
        .ColumnAdd , , 2000                                     ' Name
        .ColumnAdd , , 2000                                     ' Geschenkidee
 
        Set .Recordset = rs
 
        .LockUpdate False
        .Refresh
    End With
End Sub