Private Function UpdateExistingArbeitsverhaeltnis()
        Dim oCmd As SqlClient.SqlCommand
        Dim oSda As New SqlClient.SqlDataAdapter
        Dim sSQL As String = ""
 
        Try
            sSQL = " UPDATE t_Arbeitsverhaeltnisse " & _
                   " SET AvnAnhang = '{1}' " & _
                   " WHERE(AvnID = {2}) "
 
            sSQL = String.Format(sSQL, GetDBNullFromString(txtAvnPath1.Text), _
              ArbeitsverhaeltnisID)
            oCmd = g_oApp.ConnectionAppl.CreateCommand
            oCmd.CommandText = sSQL
            oCmd.ExecuteNonQuery()
 
        Catch ex As Exception
            g_oApp.Messages.AdErrorHandler(ex)
        End Try
End Function
 
    Public Function GetDBNullFromString(ByVal sValue As String) As String
        If sValue = String.Empty Then
            Return "NULL"
        Else
            Return sValue
        End If
    End Function