Importar Excel

olá thurma!!!

Abri uma planilha em excel para importar bara uma base dedados quando leio a célula me dá o valir null alguem sabe me explcar, segue a rotina

    arq = Me.File1
    abrir = abrirconexao()
    Set oConn = New ADODB.Connection
    oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                         "Data Source=z:Emissao NF Entrada Estoque" & Me.File1 & ";" & _
                         "Extended Properties=""Excel 8.0;HDR=Yes;"";"
    ' cria o objecto command e define a conexao ativa
    Set oCmd = New ADODB.Command
    oCmd.ActiveConnection = oConn
    oCmd.CommandText = "SELECT * from [D.I$]"

    Set ors = New ADODB.Recordset
    ors.Open oCmd, , adOpenKeyset, adLockOptimistic
    ors.MoveMin
'    FrmImportarExcel.ProgressBar1 = 1
    linha = 0
    corpo = True
    sequencia = 0
    While Not ors.EOF
        linha = linha + 1

'       FrmImportarExcel.ProgressBar1 = FrmImportarExcel.ProgressBar1 + 1
        If linha >= 27 Then
                codigo = Nz(ors(2), 0)

                Set dyn = Conexao.Execute("Select * from testoque where codigo='" & codigo & "'")
                If dyn.EOF Then
                   descricao = ""
                Else
                   descricao = dyn!descricao
                End If
                clfiscal = Nz(ors(32), " ")
                situacaotributaria = Nz(ors(33), " ")

                unidade = "PC"
                Quantidade = Nz(ors(4), 0)
                valor = Nz(ors(5), 0)
                total = Nz(ors(6), 0)

                aliquotaicm = Nz(ors(29), 0)
                valoricm = Nz(ors(30), 0)
                aliquotaipi = Nz(ors(21), 0)
                valoripi = Nz(ors(22), 0)

                    sql = " insert into TImportacaoSub (DI,Quantidade_Solicitada,"
                    sql = sql & "Codigo,Produto,Preco,ipi,total,sequencia,stributaria,stfiscal,ICMS,valoripi,valoricms) values ('"
                    sql = sql & DI & "','" & Quantidade & "','"
                    sql = sql & codigo & "','" & descricao & "','" & Format(valor, "###,##0.0000") & "','" & aliquotaipi & "','" & Format(total, "###,##0.00") & "'," & sequencia & ",'" & situacaotributaria & "','" & " " & "','" & aliquotaicm & "','" & valoripi & "','" & valoricm & "')"

Conexao.Execute (sql)

        End If
'      If FrmImportarExcel.ProgressBar1 = 100 Then FrmImportarExcel.ProgressBar1 = 1
        ors.MoveNext
    Wend