[RESOLVED] A weird Excel problem

[tommygrayson]

Help!!! Help!!! Help!!! I always have this error whenever I transfer Excel data to SQL.

An unhandled exception of type 'System.Runtime.InteropServices.COMException' occurred in adodb.dll

Every time I run this code

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ExcelApp As Microsoft.Office.Interop.Excel.Application = GetObject("", "Excel.Application")
        Dim ExcelWorkbook As Microsoft.Office.Interop.Excel.Workbook
        Dim ExcelWorksheet As Microsoft.Office.Interop.Excel.Worksheet
        Dim ExcelRange As Microsoft.Office.Interop.Excel.Range
        Dim ColumnData As String
        Dim ADOConn As New ADODB.Connection
        Dim ADOComm As New ADODB.Command
        Dim ADOParam As New ADODB.Parameter
        Dim ADORec As New ADODB.Recordset
        Dim EmployeeCounter As Integer
        Dim EmployeeMaxCounter As Integer
        Label1.Visible = True
        EmployeeCounter = 1
        EmployeeMaxCounter = 42
        ExcelWorkbook = ExcelApp.Workbooks.Open("C:\Transglobal Knowledge\Employ Pro 0.0.1\as of January 2006.xls")
        ExcelWorksheet = ExcelWorkbook.Worksheets("Sheet1")
        ADOConn.ConnectionString = "Provider=SQLOLEDB.1;Password=cons0l;Persist Security Info=True;User ID=sa;Initial Catalog=Employees;Data Source=MNLBS001"
        ADOConn.Open()
        For EmployeeCounter = 1 To EmployeeMaxCounter
            ADOParam = ADOComm.CreateParameter("@Fullname", ADODB.DataTypeEnum.adVarChar, ADODB.ParameterDirectionEnum.adParamInput, 50)
            ADOComm.CommandText = "[NewConvEmp]"
            ADOComm.CommandType = ADODB.CommandTypeEnum.adCmdStoredProc
            ADOComm.ActiveConnection = ADOConn
            ExcelRange = ExcelWorksheet.Cells(16 + EmployeeCounter, 2)
            ColumnData = ExcelRange.Text
            ADOParam.Value = ColumnData
            ADOComm.Parameters.Append(ADOParam)
            ADORec = ADOComm.Execute()
            ProgressBar1.Increment(100 / (EmployeeMaxCounter - (EmployeeCounter + 1)))
            ADOComm.Parameters.Refresh()
        Next
        ADOConn.Close()
        ExcelWorkbook.Close()
        ExcelApp.Quit()
End Sub