Problemas con datos de excel

Hola a todo estoy haciendo lo siguiente mediante ASP.net
y me esta saliendo un error en cual es "Error de

en la instrucción INSERT INTO"

Y lo que estoy haciendo es

Dim DS As New DataSet

Dim CnSt As String

Dim Cn As New OleDbConnection

Dim dr As Data.DataRow

Dim StRuta As String, StHoja As String

StRuta = Server.MapPath("PlantillaExcel\PDEVCADENA.xls")

StHoja = "devolucion"

CnSt = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '"
& StRuta & "' ;Extended Properties=""Excel 8.0;"""

Cn.ConnectionString = CnSt

Cn.Open()

Dim DA As New OleDbDataAdapter("SELECT * FROM [" &

& "$]", Cn)

DA.Fill(DS, "PARAMETRO")

Dim CB As OleDbCommandBuilder

CB = New OleDbCommandBuilder(DA)

DA.InsertCommand = CB.GetInsertCommand

dr = DS.Tables("PARAMETRO").NewRow

dr.BeginEdit()

dr.Item("Ciclo") = 160

dr.EndEdit()

DS.Tables("PARAMETRO").Rows.Add(dr)

DGDatos1.DataSource = DS

DGDatos1.DataBind()

DA.Update(DS, "PARAMETRO") ' el error me sale aqui

Cn.Close()

Alguien me puede a ayudar a resolver este problema?

Un saludo Juan Carlos

.