Sub Excel_Daten_speichern(ByVal TabellenName As String)
 
        Dim WhereFilter As String = "WHERE "
        Dim SetField As String = "SET "
        Dim UpdateString As String = "UPDATE [" & TabellenName & "$] "
        Dim Merker1 As String = ""
        Dim Merker2 As String = ""
 
 
        SetField = Replace(SetField, "SET ,", "SET ")
        UpdateString = UpdateString & SetField & WhereFilter
 
 
        Try
            If objAdapter.UpdateCommand Is Nothing Then
                Dim objCommand As New OleDb.OleDbCommand(UpdateString, _
                  objConnection)
 
                For I = 0 To DataGridView1.Columns.Count - 1
                            objCommand.Parameters.Add(DataGridView1.Columns( _
                              I).Name, OleDbType.Char, 255).SourceColumn = _
                              DataGridView1.Columns(I).Name
                Next
 
                objAdapter.UpdateCommand = objCommand
 
            End If
            objAdapter.Update(objDataSet)
 
        Catch ex As Exception
            MsgBox(ex.ToString())
        End Try
 
End Sub