Olá,
Tente o seguinte:
Dim Linha as Integer
Dim Sql as String
Dim Aniv as ADODB.Recordset
Sql = "Select * From Tabela Where Year(DataNascimento) = " & TxtAno.Text & " Order By DataNascimento"
Set Aniv = New ADODB.Recordset
Aniv.Open Sql, Conexao
With MSFlexGrid1
If Not Aniv.Eof Then
Aniv.MoveMax
Aniv.MoveMin
End If
.Rows = Aniv.RecordCount + 1
.Cols = 2
.TextMatrix(0, 0) = "Nome"
.TextMatrix(0, 1) = "Mês"
Linha = 1
Do While Not Aniv.Eof
.TextMatrix(Linha, 0) = Aniv!Nome
.TextMatrix(Linha, 1) = Format$(Aniv!DataNascimento, "mm/yy")
Aniv.MoveNext
Loop
End With
Aniv.Close
Set Aniv = Nothing
um abraço,
Sandro.
