Mi pregunta es donde llamas a Funcion_update?
Quedaria como esto:
Código:
Private Sub Funcion_update()
Timer1.Enabled = True
End Sub
Private Sub actualitza_Click()
'consultas SQL
End Sub
Private Sub Timer1_Timer()
xseg = xseg + 1
If xseg = 600 Then
xseg=0
actualitza_Click '600 seg que son 10 minutos
end if
End Sub