error openquery con

Option Compare Database Private Sub Comando0_Click() Rem On Error GoTo ERRORES Dim stDocName As String Dim minutost, minutosp, horaUX, MIN1, HOR1 Dim aux2, aux, Aux30 As Variant Dim Horf, Ho, Minf, Mi, Horaf, tt, mt Dim aux3 As Variant Dim Aux4 ...