No se puede enlazar con el campo o DataMember:\'Emax\'
No se que me falta en este codigo para que me ponga en las cajas de texto Emax,Emin,Smax y Smin los registros de la tablaque tengo de la base de datos.
Dim Consulta As String
Consulta = "SELECT EMa003, EMi003, SMa003, SMi003"
Consulta = Consulta + " FROM Rnd003, Rnd004 WHERE IdM003=IdM004"
Consulta = Consulta + " AND IdD004=" & Dia & " AND IdH004=" & Hora & ";"
Adodc1.RecordSource = Consulta
Emax.DataField = "EMa003"
Emin.DataField = "EMi003"
Smax.DataField = "SMa003"
Smin.DataField = "SMi003"
Dim Consulta As String
Consulta = "SELECT EMa003, EMi003, SMa003, SMi003"
Consulta = Consulta + " FROM Rnd003, Rnd004 WHERE IdM003=IdM004"
Consulta = Consulta + " AND IdD004=" & Dia & " AND IdH004=" & Hora & ";"
Adodc1.RecordSource = Consulta
Emax.DataField = "EMa003"
Emin.DataField = "EMi003"
Smax.DataField = "SMa003"
Smin.DataField = "SMi003"
