mira yo realizo algo asi
Dim dcPerInd As DataColumn
Dim drPerInd As DataRow
For Each drPerInd In dsPerInd.Tables(sNomTbl).Rows
sRColPerInd = " INSERT INTO TblPerInd VALUES ("
sRColPerInd += CStr(drPerInd.Item("CvePerInd")) & ","
sRColPerInd += CStr(drPerInd.Item("CveEntInd")) & ","
sRColPerInd += CStr(drPerInd.Item("NumAnoInd")) & ","
sRColPerInd += " 6,28,null,"
Next
bueno aunke tu podrias cambiar el "sRColPerInd" por tu <table>, <tr> o lo ke sea
como ves?