Why getting Runtime error 6 , overflow? Timer interval 2000.

Private Sub Timer2_Timer()
    'On Error GoTo ErrHandle
    If Winsock1.State = sckConnected Then
    
        'if connecting , update db ringing, send to switch
        Set m_Services.rs1 = New ADODB.Recordset
        rs1.CursorLocation = adUseClient
        rs1.LockType = adLockOptimistic
        rs1.Open strQ, m_Global.sqlDB
        
        Do Until rs1.EOF
            If rs1.BOF = True Or rs1.EOF = True Then
                    Exit Do
            Else
                    'Row by row
                    f_call1 rs1.Fields(0), rs1.Fields(1), rs1.Fields(2), rs1.Fields(3), rs1.Fields(4), rs1.Fields(5), rs1.Fields(7)
                    rs1.Fields(6) = "Ringing"
                    rs1.Update
                    rs1.MoveNext
            End If
        Loop
        rs1.Close
        Set rs1 = Nothing
    End If
    
    'Exit Sub
'ErrHandle:
    'Resume Next
    
End Sub

you havent supplied the code for your sub "f_call1", but i suspect it is using parameters of "as integer", instead of "as long"

may i suggest that you provide some context information with your errors?

also, rename your variables to something more meaningful


Hope this helps,
Kieron

--
vb is not C, and C is not as "c" as hackers would have you believe

____________________________
Build it better, faster, quicker, easier.. then fix it (non-offical MS mission statement)