COMO CONFIGURAR A DATA NO PRIVATE SUB IMPRESSAO

MARCIOLOPES1967 06/10/2013 23:22:56
#429613

Srs,
Estou com problema para configurar o campo data para impressao da erro eis o codigo que tenho:

Dim MargemEsquerda As Single = e.MarginBounds.Left
Dim MargemSuperior As Single = e.MarginBounds.Top + 100
Dim MargemDireita As Single = e.MarginBounds.Right
Dim MargemInferior As Single = e.MarginBounds.Bottom + 30
Dim CanetaDaImpressora As Pen = New Pen(Color.Black, 1)
Dim codigo As Integer
Dim nome, data_1, valor_1, valor_pago, forma_de_pagamento As String
Dim nome1 As String = listnome.Text
Dim codigo1 As String = listcod.Text
Dim endereço1 As String = listend.Text
Dim pagamento1 As String = list_pag_per.Text
Dim recebimento1 As String = list_rec_per.Text
Dim inicio As String = list_per1.Text
Dim fim As String = list_per2.Text

e a configuracao do leitor:

codigo = Leitor.GetInt32(0)
nome = Leitor.GetString(1)
data_1 = Leitor.GetString(3) [Ô]AQUI DA ERRO[Ô]
valor_pago = Leitor.GetString(4)
valor_1 = Leitor.GetString(5)
forma_de_pagamento = Leitor.GetString(6)

No BD access esta configurado como DATA/HORA

Quando estava como texto funcionava, porem a procura por periodo de data nao funciova, tive que mudar para funcionar o intervalo de datas, agora nao funciona a impressao, tentei deixar o data_1 como GetInt32 e o dim data1 como integer mas nao funcionou.

Preciso de ajuda, alguem pode me ajudar??

Grato