Public Function UpdateDataBase(ByVal ds_DataSetObjekt As DataSet, ByVal _
      DataTableName As String)
 
        'Interne Datenbankanbindung
        Dim con_DBconnection As New System.Data.SqlClient.SqlConnection()
 
        Try
 
            'Datenbank wird geöffnet. Rückgabewert von OpenDBConnection ist die 
            ' offene Datenbank.
            con_DBconnection = OpenDBConnection()
 
            'Sql-String für den Datenadapter.
            Dim str_Sql As String = "SELECT * FROM " & DataTableName
 
            'Datenadapter wird konfiguriert, um die aktuelle Tabelle mit der 
            ' Datenbank ab zu gleichen. 
            Dim ds_adp_SQLDbDA As New System.Data.SqlClient.SqlDataAdapter()
 
            ds_adp_SQLDbDA.SelectCommand = New SqlCommand(str_Sql, _
              con_DBconnection)
 
            'Schema wird für Updateforgang angepasst
            '   ds_adp_SQLDbDA.MissingSchemaAction = 
            ' MissingSchemaAction.AddWithKey
 
            'Der CommandBuilder ermöglicht die Abänderung in der Datenbank über 
            ' Update, 
            'so dass nur veränderte Datensätze gespeichert werden.
            Dim cb As New SqlCommandBuilder(ds_adp_SQLDbDA)
            ds_adp_SQLDbDA.Update(ds_DataSetObjekt, DataTableName)
 
        Catch ex As Exception
 
            MsgBox(ex.Message)
 
        Finally
 
            'Verbindung schließen, egal ob die Ausnahme ausgelöst wurde oder 
            ' nicht.
            con_DBconnection.Close()
 
        End Try
 
    End Function