problem inserting data into excel from a sql server .net data set

Hi guys.  I am using excel object to insert data from a .net data set into an excel workbook from vb.net.  I am getting the following error when I try to insert a column that is over a certain limit:

"The field is too small to accept the amount of data you attempted to add"

How do I get around this?  I am creating the excel file on the fly, so is there a way to programatically increase the field size in excel?  Here is the code I am using to write to excel.  Any help is greatly appreciated.

Ryan

'************************************************************************
'Create path for satisfied
            Dim ExcelPath As String
            ExcelPath = "c:\Comerica Files\Comments\Service Delight - Date From " + Replace(Format(StartDate, "MM/dd/yy"), "/", "-") + " To " + Replace(Format(EndDate, "MM/dd/yy"), "/", "-") + ".xls"

            '*****************  Create the excel objects and Write column headers ***********************
            'Name the file and location
            Dim oExcel As Object
            Dim oBook As Object
            Dim oSheet As Object

            'Start a new workbook in Excel.
            oExcel = CreateObject("Excel.Application")
            oBook = oExcel.Workbooks.Add

            oSheet = oBook.Worksheets(1)
            oSheet.Range("A1").Value = "Branch"
            oSheet.Range("B1").Value = "BranchName"
            oSheet.Range("C1").Value = "TransNum"
            oSheet.Range("D1").Value = "Name1"
            oSheet.Range("E1").Value = "Name2"
            oSheet.Range("F1").Value = "Comment"
            oSheet.Range("G1").Value = "Date_1"
            oSheet.Range("H1").Value = "Region"
            oSheet.Range("I1").Value = "StudyID"

            oBook.SaveAs(ExcelPath)
            oSheet = Nothing
            oBook = Nothing
            oExcel.Quit()
            oExcel = Nothing
            GC.Collect()
            '***************************************************************

            '********************  Populate the new workbook  ************
            'This data must be pu into memory because the connection is to the excel workbook, not the database
            strqry = " SELECT Branch, BranchName, TransNum, Name1, Name2, " & _
                     " Comment, Date_1, Region, StudyID " & _
                     " FROM tbl_Comment " & _
                     " WHERE date_1 between '" & StartDate & "' and '" & EndDate & "' " & _
                     " and CommentType = 'SATISFIED'"
            dsData = Utils.getSurvDataSet(strqry)

            'Establish a connection to the Excel data source.
            Dim sConnectionString As String
            sConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                "Data Source=" & ExcelPath & ";Extended Properties=Excel 8.0;"
            Dim objConn As New System.Data.OleDb.OleDbConnection(sConnectionString)
            objConn.Open()

            'Add records to the table.
            Dim objCmd As New System.Data.OleDb.OleDbCommand()
            objCmd.Connection = objConn

            Dim x As Integer = 0
            With dsData.Tables(0)
                For x = 0 To dsData.Tables(0).Rows.Count - 1
                    objCmd.CommandText = " Insert into [Sheet1$] (Branch, BranchName, TransNum, Name1, " & _
                                         " Name2, Comment, Date_1, Region, StudyID)" & _
                                         " values ('" & Replace(.Rows(x).Item("Branch").ToString, "'", "''") & "', " & _
                                         " '" & Replace(.Rows(x).Item("BranchName").ToString, "'", "''") & "', " & _
                                         " '" & Replace(.Rows(x).Item("TransNum").ToString, "'", "''") & "', " & _
                                         " '" & Replace(.Rows(x).Item("Name1").ToString, "'", "''") & "', " & _
                                         " '" & Replace(.Rows(x).Item("Name2").ToString, "'", "''") & "', " & _
                                         " '" & Replace(.Rows(x).Item("Comment").ToString, "'", "''") & "', " & _
                                         " '" & Replace(.Rows(x).Item("Date_1").ToString, "'", "''") & "', " & _
                                         " '" & Replace(.Rows(x).Item("Region").ToString, "'", "''") & "', " & _
                                         " '" & Replace(.Rows(x).Item("StudyID").ToString, "'", "''") & "') "
                    objCmd.ExecuteNonQuery()
                Next
            End With
            objConn.Close()

'************************************************************************