Dim consulta As String
Dim ejecutar As New OleDb.OleDbCommand
Dim leer As OleDb.OleDbDataReader
consulta = "SELECT * FROM INGRESO WHERE CODIGO='" & Form3.Txtcod.Text & "' "
ejecutar.CommandType = CommandType.Text
ejecutar.Connection = conectar
ejecutar.CommandText = consulta
leer = ejecutar.ExecuteReader
While leer.Read
Form3.DTP1.MinDate = leer(2)
Form3.DTP11.MinDate = leer(3)
Form3.txtingresos1.Text = leer(4).ToString
Form3.txtreal1.Text = leer(5).ToString
Form3.txtpagada1.Text = leer(6).ToString
Form3.txtdif1.Text = leer(7).ToString
Form3.txttot1.Text = leer(8).ToString
Form3.Total1.Text = leer(9).ToString
End While