DATA REPORT

DRIANIN13 07/03/2013 21:41:39
#420138

Olá

Preciso de uma ajuda com um relatório que etou montando em VB6 [ô]Sou novato em programação[Ô]
è um relatorio em data report o erro esta em anexo
Se alguem poder ajudar eu agradeço desculpe se o erro for muito facil mais não estou conseguindo resolver


[ô]define as variáveis usadas no projeto
Dim strSQL As String
Dim strAte As String
Dim strInicio As String
Dim objcon As New ADODB.Connection
Dim rs As New ADODB.Recordset

objcon.Open [Ô]bfz[Ô], [Ô]sa[Ô], [Ô]drico351[Ô] = DataEnvironment1.Connection1

[ô]pega as datas de inicio e de fim
With frmDataEnv

[ô]strInicio = mandt.Value
[ô]strAte = mandt2.Value

strInicio = [Ô]21/01/13[Ô]
strAte = [Ô]21/01/13[Ô]

End With




[ô]define o titulo do relatório
DataReport1.Title = [Ô]De: [Ô] & strInicio & [Ô] Até: [Ô] & strAte

[ô]define o comando SHAPE



strSQL = [Ô]SHAPE { [Ô]
strSQL = strSQL & [Ô]select carga,coletadt,valor,lucro,frete,despesa,lucroparcial [Ô]
strSQL = strSQL & [Ô]from romanei[Ô]
strSQL = strSQL & [Ô] where coletadt[Ô]
strSQL = strSQL & [Ô] BETWEEN [ô][Ô] & strInicio & [Ô][ô] [Ô]
strSQL = strSQL & [Ô]AND [ô][Ô] & strAte & [Ô][ô] [Ô]
strSQL = strSQL & [Ô]} AS Command1 [Ô]


rs.Open strSQL, objcon, adOpenForwardOnly NESSA LINHA QUE DA O ERRO



[ô]atribui o recordset gerado ao datareport
Set DataReport1.DataSource = rs

End Sub