'Dim addvou As New vr_detail With {.ac_no = DataGridView1.Rows(abcd).Cells(0).Value, .name = DataGridView1.Rows(abcd).Cells(1).Value, .credit = DataGridView1.Rows(abcd).Cells(3).Value, .cust_no = TextBox9.Text, .debit = DataGridView1.Rows(abcd).Cells(2).Value, .vend_no = TextBox2.Text, .vr_date = DateTimePicker1.Text, .vr_no = TextBox1.Text, .post_date = DateTimePicker3.Text, .vr_type = ComboBox1.Text, .sub_ac = DataGridView1.Rows(abcd).Cells(4).Value, .head_ac = DataGridView1.Rows(abcd).Cells(5).Value, .main_ac = DataGridView1.Rows(abcd).Cells(6).Value}
voucher.vr_details.InsertOnSubmit(addvou)
voucher.SubmitChanges()'