GERAR RELATORIO POR PERIODO VB6

ALEXANDREBS 22/08/2012 13:58:41
#408340

Estou precisando gerar um relatorio por periodo no VB6 e nao estou conseguindo, alguem pode me ajudar ?? Sem abaixo o cód que estou utilizando e o erro q esta aparecendo.

Private Sub cmdok_Click()

Dim DataInicial As String
Dim DataFinal As String

DataInicial = Format(actDataInicial.Value, [Ô]mm/dd/yyyy[Ô])
DataFinal = Format(actDataFinal.Value, [Ô]mm/dd/yyyy[Ô])

DataEnvironment1.dtporperiodo_Data DataInicial, DataFinal

Unload Me
dtperiodo.Show
End Sub

Private Sub Form_Load()
On Error Resume Next
frmRelatorio.BackColor = vbBlack
Frame2.BackColor = vbBlack
[ô]cmdOK.BackColor = vbBlack
actDataInicial.Value = Date
actDataFinal.Value = Date
End Sub

Quando eu mando executar esta aparecendo o erro abaixo:

REPORT SECTIONS DO NOT MATCH DATA SOURCE