将EXCEL数据导入SQL问题??/

程序如下: Sub handlefile(sender as object,e as eventargs)
  Dim strConn As String '定义数据连接字符串 
  Dim SQL As String  '定义SQL语句
  Dim odConn As OleDbConnection
  Dim odAdapt As OleDbDataAdapter
  dim comm as oledbcommand
  Dim DS As DataSet '创建DataSet对象
  Dim DT As DataTable '创建DataTable对象
  Dim nStart As Integer '存放当前页面的起始记录序号
  Dim nEnd As Integer '存放当前页面的终止记录序号
  Dim i As Integer 
  SQL = "SELECT * FROM gt "
  strConn = "Provider=SQLOLEDB.1;User ID=sa;Password=zsldf;Initial Catalog=bc_serch;Data Source=21.140.192.33;Connect Timeout=120"
  odConn = New OleDbConnection ( strConn )
  odAdapt = New OleDbDataAdapter
  comm=new oledbcommand(SQL,odconn)
  odAdapt.selectcommand=comm
  DS = New DataSet
  odAdapt.Fill ( DS ,"gt") DIM objExcelApp AS new EXCEL.APPLICATION
DIM objExcelBook AS EXCEL.WORKBOOK
dim objExcelSheets as excel.sheets
DIM objExcelSheet AS EXCEL.WORKSHEET

DIM oCells as Excel.Range
objExcelApp.WorkBooks.Open(left(Server.MapPath(Request.ApplicationPath),len(Server.MapPath(Request.ApplicationPath))-7)&"bc_web\uploadfile\"&session("fn") &"")   
objExcelBook = objExcelApp.ActiveWorkBook   
objExcelSheets = objExcelBook.Worksheets   
objExcelSheet = objExcelBook.Sheets(1) 
'objExcelApp.visible=false
dim aa as string=objExcelApp.Cells(1,1)dim  myAddData as   string= "insert into gt(机构号) values ('"&aa &"')"
dim myCmd as OleDbCommand  = new OleDbCommand(myAddData, odConn)
myCmd.Connection.Open()
myCmd.ExecuteNonQuery()
myCmd.connection.close()
  objExcelApp.quit
  End Sub问题出在:dim aa as string=objExcelApp.Cells(1,1)
错误:异常详细信息: System.InvalidCastException: 从类型“Range”到类型“String”的强制转换无效。
请帮忙解决,急!!!!