update

[mestre fyoda 1]

Dim Sql As StringPrivate Sub Calendario_DateClick(ByVal DateClicked As Date)data.Value = Calendario.ValueEnd SubPrivate Sub Form_Load()hora.Value = agendaEnd SubPrivate Sub Image1_Click()Sql = " Update Agendar_Consulta set nom_pac = '" & nome.Text & "' , data = '" & data.Value & "' where hora = '" & hora.Value & "' "Unload MeEnd Sub

[Luizgrs 0]

esse campo hora é do tipo data/hora ?Caso for ao invés de usar o '' no where use ##

[mestre fyoda 1]

ele é apenas hora , exemplo 12:00 . como faço ?

[mestre fyoda 1]

nao deu certo .

[Luizgrs 0]

O problema deve estar na cláusula where, tente fazer um select usando o mesmo where para ver se algo é retornado.