Public Class Form1
    Dim cdb As New DB
    Dim dbc As New DB_Connection

    Private Sub btnKopieren_Click(sender As Object, e As EventArgs) Handles btnKopieren.Click
        Dim s As String = ""
        s = cdb.Call_DB(1, Globals.Mitarbeiternr, Me.txtSourceDokumentID.Text, Me.txtTargetDokumentID.Text)
        If s <> "" Then
            MsgBox(s)
            Exit Sub
        End If
        s = ""
        s = cdb.Call_DB(2, Globals.Mitarbeiternr, Me.txtSourceDokumentID.Text, Me.txtTargetDokumentID.Text)
        If s <> "" Then
            MsgBox(s)
            Exit Sub
        End If
        s = ""
        s = cdb.Call_DB(3, Globals.Mitarbeiternr, Me.txtSourceDokumentID.Text, Me.txtTargetDokumentID.Text)
        If s <> "" Then
            MsgBox(s)
        End If
    End Sub

    Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SchliessenToolStripMenuItem.Click
        Me.Close()
    End Sub
End Class