Public myConnectionString As String
    Public myConnection As New System.Data.OleDb.OleDbConnection( _
      myConnectionString)
    Public Function OLEDB_Zelle_schreiben(ByVal strFile As String, ByVal _
    strSheet As String, ByVal strSpalte As String, ByVal intZeile As Integer, _
    ByVal strValue As String) As Boolean
        Dim bolR As Boolean = False
        bolR = False
        If myConnectionString = "" Then
            myConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=" & strFile & ";" & _
            "Extended Properties=""Excel 8.0;HDR=yes;"";"
        End If
        Dim myInsertQuery As String = "INSERT INTO [" & strSheet & "$" & _
          strSpalte & (intZeile - 1) & ":" & strSpalte & (intZeile - 1) & "]" & _
          "VALUES ('" & strValue & "')"
        Dim myCommand As New System.Data.OleDb.OleDbCommand(myInsertQuery)
 
        Try
            myConnection.Open()
            myCommand.ExecuteNonQuery()
            myConnection.Close()
            bolR = True
        Catch ex As Exception
            bolR = False
        Finally
            myConnection.Close()
        End Try
        OLEDB_Zelle_schreiben = bolR
    End Function