15 Días antes del actual - Fechas

[emma93]

Te adjunto el código del FORM_LOAD donde quiero que se ejecute la consulta

Código VB.NET:

Dim command As String = "Select nombre,apellido,cumpleanos from clientes ORDER BY cumpleanos DESC"
        Dim cadena_conexion As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='D:\Documents and Settings\Administrador\Mis documentos\registros.mdb'"
        Dim dbconn As New System.Data.OleDb.OleDbConnection(cadena_conexion)
        Dim comando As New OleDbDataAdapter(command, dbconn)
        Dim ds As New DataSet
        comando.Fill(ds, "clientes")
        For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
            ReDim fechas(i)
            ReDim diferencias(i)
            fechas(i) = ds.Tables(0).Rows(i).Item("cumpleanos")
            diferencias(i) = fechas(i).Subtract(Now.Date)
            If diferencias(i).TotalDays <= 15 Then
                ListBox1.Items.Add("Faltan " & diferencias(i).TotalDays & " días para el cumpleaños de " & ds.Tables(0).Rows(i).Item("Nombre") & " " & ds.Tables(0).Rows(i).Item("Apellido"))
            End If
        Next
 

Que puede ser? :/