Fala Treze!
Rodei o seu código e quando dou duplo clique na linha aparece a sequinte mensagem:
Data Type mistake in criteria expression
No campo data estou usando o componente DTPicker.Alterei o seu codigo e coloquei
DTPicker1.Value conforme abaixo:
Private Sub lstvwDespesas_DblClick()
Dim PESQUISA As String
PESQUISA = lstvwDespesas.SelectedItem.Text
rec.Open "select * from tbdespesas Where iddespesas = '" & PESQUISA & "'", conn
While Not rec.EOF
frmcadastro.Text1.Text = rec("iddespesas")
frmcadastro.DTPicker1.Value = rec("data")
frmcadastro.txtRendaTotal.Text = rec("rendatotal")
frmcadastro.txtTotais.Text = rec("despesatotal")
frmcadastro.txtSaldo.Text = rec("saldo")
RS.MoveNext
Wend
End Sub
Na propriedade DataFormat do DTPicker coloquei date dd/MM/yyyy.
No banco Access coloquei o campo data, formato Data Abreviada.
______________________
depois tentei isso:
Private Sub lstvwDespesas_DblClick()
On Error Resume Next
Load Form2
If rec.State > 0 Then rec.Close
rec.Open "select * from tbdespesas Where iddespesas = '" & lstvwDespesas.SelectedItem & "'", conn
While Not rec.EOF
Form1.Text1.Text = rec(0)
Form1.DTPicker1.Value = rec(1)
Form1.txtRendaTotal.Text = rec(2)
Form1.txtTotais.Text = rec(3)
Form1.txtSaldo.Text = rec(4)
Unload Form2
Wend
End Sub
também não deu certo.O programa travou e tive que reiniciar o visual basic.
