Add จาก Listview ลง Database (vb 2010 & SQL 2008) ยังไงคะ ช่วยหนูทีค่ะ

 Try
                
                Tranfer_id()     ' sub ที่ใช้กำหนดTranfer_id

                sb = New StringBuilder
                sb.Append("INSERT INTO STAFF_TR(User_id,Tranfer_id,Date_TR,To_Site,Site_code,Date_start)")
                sb.Append(" VALUES(@User_id,@tranfer_id,@date,@Site_code_tr,@Site_code,Date_start)")
                com = New SqlCommand
                connection()
                With com

                    .CommandText = sb.ToString
                    .CommandType = CommandType.Text
                    .Connection = conn
                    .Parameters.Add("@User_id", SqlDbType.VarChar).Value = txtsearch.Text.Trim
                    .Parameters.Add("@tranfer_id", SqlDbType.VarChar).Value = id
                    .Parameters.Add("@date", SqlDbType.Date).Value = destart.EditValue
                    .Parameters.Add("@Site_code_tr", SqlDbType.VarChar).Value = site_id.Item(cbosite.SelectedIndex)

                          'ด้านบนนี้เป็นการแอดลงธรรมดาจาก textbox และ combobox ธรรมดาค่ะ

                    .Parameters.Add("@Site_code", SqlDbType.VarChar).Value = liv.SubItems.Add(ds.Tables("V_User_TH").Rows(0)("Site_code").ToString)
                    .Parameters.Add("@Date_start", SqlDbType.Date).Value = liv.SubItems.Add(destart.DateTime)
                             ' 2อันบนนี้ที่ต้องการแอดจาก Listview น่ะค่ะ      

                    .ExecuteNonQuery()
                    
                End With
                conn.Close()
                MessageBox.Show("ย้ายข้อมูลเรียบร้อยแล้ว", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Exit Sub

            Catch ex As Exception
                MessageBox.Show(ex.Message, "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit Sub
            End Try

liv.SubItems.Add(ds.Tables("V_User_TH").Rows(0)("Site_code").ToString)

Liv.Items(0).SubItems(1).ToString

                     For i = 0 To ListView4.Items.Count - 1
                            sql = "INSERT INTO TbleName (Culumn1,Column2,Column3) 
                                     VALUES('" & ListView1.Items(i).SubItems(0).Text & "', 
                                                   '" & ListView1.Items(i).SubItems(1).Text & "', 
                                                   '" & ListView1.Items(i).SubItems(2).Text & "')"
                            da = New OleDbDataAdapter(sql, cn)
                            cmd = New OleDbCommand(sql, cn)
                            cmd.CommandText = sql
                            cmd.ExecuteNonQuery()
                        Next

For i = 0 To ListView1.Items.Count - 1
                    sb = New StringBuilder
                    sb.Append("INSERT INTO STATT_TR_DETAIL(Transfer_id,User_id,From_Site,datestart)")
                    sb.Append(" VALUES(@tranfer_id,@User_id,@Site_code,@datestart)")
                    com = New SqlCommand
                    connection()
                    With com
                        .CommandText = sb.ToString
                        .CommandType = CommandType.Text
                        .Connection = conn
                        .Parameters.Add("@tranfer_id", SqlDbType.VarChar).Value = id
                        .Parameters.Add("@User_id", SqlDbType.VarChar).Value = txtsearch.Text.Trim
                        .Parameters.Add("@From_Site", SqlDbType.VarChar).Value = site_code
                        .Parameters.Add("@datestart", SqlDbType.Date).Value = destart
                        .ExecuteNonQuery()
                    End With
                    conn.Close()
                Next