All pastes #898958 Raw Edit

Stuff

public text v1 · immutable
·published 2008-02-10 19:31 UTC
rendered paste body

Public Sub SendServ(strData As String)
    On Error GoTo ERRH_
    With frmMain.ds1
        .SendData strData & vbCrLf
    End With
    Exit Sub
ERRH_:
    If Err.Number = 40006 Then
        Resume Next
    Else
        MsgBox "Description: " & Err.Description & vbCrLf & "Number: " & Err.Number, vbCritical, App.Title
    End If
End Sub