Como insertar

[alejandrom]

que tiene de malo esta lineas de Codigo, que debo ó que me recomiendan para hacer esto

Dim s As SqlCommand
s.CommandText = "INSERT INTO ingrKardex (Cia,TipoPieza,Cod,FecDcmto,TMvto," & _
"NroDcmto,NomCliPro,Und) VALUES('" & strCodCia & "','" & .Item("TipoPieza") & "','" & _
.Item("Cod") & "','" & .Item("FecDcmto") & "','" & TipoMvto & "','" & .Item("NroDcmto") & "','" & _
NomCliPro & "','" & .Item("Und") & "'"

s.ExecuteNonQuery()


Intente tambien con Esto y tampoco me funciono

daCo.Fill(ds, "coConcepto")
daKarde.Fill(ds, "ingrKardex")

For i = 0 To ds.Tables("coConcepto").Rows.Count - 1
With ds.Tables("coConcepto").Rows(0) COMPRAS

NewLineKar = ds.Tables("ingrKardex").NewRow()
NewLineKar("Cia") = strCodCia
NewLineKar("TipoPieza") = .Item("TipoPieza")
NewLineKar("Cod") = .Item("Cod")
NewLineKar("FecDcmto") = .Item("FecDcmto")
NewLineKar("TMvto") = TipoMvto
NewLineKar("NroDcmto") = .Item("NroDcmto")
NewLineKar("NomCliPro") = NomCliPro
NewLineKar("Und") = .Item("Und")
ds.Tables("ingrKardex").Rows.Add(NewLineKar)
daKarde.Update(ds, "ingrKardex")

End With
next i

QUE DEBO HACER