Visual Basic

<br />
    Public Shared Function OpenSpreadsheet(ByVal strPath As String) As DataTable<br />
<br />
        'Create new dataset to hold information<br />
        Dim tableStatement As New DataTable()<br />
        Dim column(1) As DataColumn<br />
<br />
        Try<br />
            'Connectionstring to the xls spreasheet on local/network drive<br />
            Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _<br />
            "Data Source=" & strPath & ";" & _<br />
            "Extended Properties=""Excel 8.0;"""<br />
<br />
            'strConn..open()<br />
<br />
            Dim daTimesheet As New OleDbDataAdapter("SELECT * FROM [Sheet1$B8:F30]", strConn)<br />
            daTimesheet.Fill(tableStatement)<br />
<br />
<br />
            tableStatement.PrimaryKey = New DataColumn() {tableStatement.Columns("projectID")}<br />
<br />
        Catch Ex As Exception<br />
            MessageBox.Show("Cannot fill Datatable. OpenSpreadsheet(): " & Ex.Message)<br />
<br />
        Finally<br />
            tableStatement.Dispose()<br />
            'strConn.close()<br />
<br />
<br />
        End Try<br />
<br />
        Return tableStatement<br />
<br />
    End Function<br />

<br />
    Public Shared Function UpdateSpreadsheet(ByVal strPath As String) As DataTable<br />
<br />
        Dim tableStatement As DataTable = New DataTable<br />
<br />
        'Connectionstring to the xls spreasheet on local/network drive<br />
        Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _<br />
        "Data Source=" & strPath & ";" & _<br />
        "Extended Properties=""Excel 8.0;"""<br />
<br />
        Try<br />
<br />
            Using connection As New OleDbConnection(strPath)<br />
<br />
                Dim adapter As New OleDbDataAdapter()<br />
                adapter.SelectCommand = New OleDbCommand("SELECT * FROM [Sheet1$B8:F30]", connection)<br />
                adapter.UpdateCommand = New OleDbCommand("UPDATE [Sheet1$B8:F30] SET FirstName= ?, LastName = ?", connection)<br />
<br />
                Dim builder As OleDbCommandBuilder = New OleDbCommandBuilder(adapter)<br />
<br />
                connection.Open()<br />
<br />
                adapter.Fill(tableStatement)<br />
<br />
                tableStatement.PrimaryKey = New DataColumn() {tableStatement.Columns("projectID")}<br />
<br />
                ' Code to modify data in DataSet here <br />
<br />
                adapter.Update(tableStatement)<br />
<br />
                'Return 1<br />
                Return tableStatement<br />
<br />
            End Using<br />
<br />
        Catch Ex As Exception<br />
            MessageBox.Show("Cannot Update Datatable. UpdateSpreadsheet(): " & Ex.Message)<br />
            'Dim strErrorUpdate As String = "Cannot Update Datatable. UpdateSpreadsheet(): " & Ex.Message<br />
<br />
            'Return strErrorUpdate<br />
<br />
        End Try<br />
<br />
    End Function<br />