ผมมีความต้องการที่จะ เพิ่มข้อมูลในฟอร์ม ลงใน 2 ตาราง โดยใช้ข้อมูลตัวเดียวกัน ผมไม่แน่ใจว่าผมต้องทำเช่นไร
ขอความกรุณาช่วยด้วยครับ ขอบคุณมากๆครับ

    Private Sub tssave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tssave.Click
        If txtreid.Text = "" Or
           remoney.Text = "" Or
           rekind.Text = "" Then

            MessageBox.Show("กรุณากรอกข้อมูลให้ครบถ้วน")
            Exit Sub
        End If
        If MessageBox.Show("บันทึกข้อมูล?", "ยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            Select Case clickbutton
                Case "add"
                    sb = New StringBuilder
                    sb.Append("Insert INTO drawdraw (drawID,drawmoney,drawkind,drawabout,drawdate)")     [[[
                    sb.Append(" values (@drawID,@drawmoney,@drawkind,@drawabout,@drawdate)")            [[[   ตรงนี้ครับ
                    sb.Append("Insert INTO rere   (reID,remoney,rekind,reabout,redate)")                                [[[    >>ปัญหา<<
                    sb.Append(" values (@drawID,@drawmoney,@drawkind,@drawabout,@drawdate)")            [[[
                    Try
                        sb = New StringBuilder                                                                                            [[ ผมพยายามใช้ Try
                        sb.Append("Insert INTO rere   (reID,remoney,rekind,reabout,redate)")                         [[ แต่ข้อมูลก็ insert
                        sb.Append(" values (@drawID,@drawmoney,@drawkind,@drawabout,@drawdate)")     [[ เข้าแค่ตารางเดียว
                    Catch ex As Exception
                        MsgBox("error")                                           
                    End Try
                
                Case "edit"
                    sb = New StringBuilder
                    sb.Append("UPDATE  drawdraw")
                    sb.Append("  SET drawdate = '" & redate.Value & "' , ")
                    sb.Append("  drawmoney =  '" & remoney.Text & "', ")
                    sb.Append("  drawkind =  '" & rekind.Text & "', ")
                    sb.Append("  drawabout = '" & reabout.Text & "' ")
                    sb.Append("  WHERE  drawID = '" & txtreid.Text & "' ")
                    sql = sb.ToString()
                    command = New OleDbCommand
                    With command
                        .CommandType = CommandType.Text
                        .CommandText = sql
                        .Connection = conn
                        .ExecuteNonQuery()
                    End With
            End Select
           
            sql = sb.ToString
            command = New OleDbCommand
            With command
                .CommandType = CommandType.Text
                .CommandText = sql
                .Connection = conn
                .Parameters.Clear()
                .Parameters.Add("@drawID", OleDbType.VarChar).Value = txtreid.Text
                .Parameters.Add("@drawmoney", OleDbType.Decimal).Value = CSng(remoney.Text.Trim)
                .Parameters.Add("@drawkind", OleDbType.VarChar).Value = rekind.Text
                .Parameters.Add("@drawabout", OleDbType.VarChar).Value = reabout.Text
                .Parameters.Add("@drawdate", OleDbType.Date).Value = redate.Value
                .ExecuteNonQuery()

            End With
            MessageBox.Show("บันทึกข้อมูลเรียบร้อยแล้ว", "OK", MessageBoxButtons.OK, MessageBoxIcon.None)
            showdata()
            formatdgvre()
            lockbutton2()
            clearalldata()
            locktextbox1()
            remoney.ReadOnly = True
        End If
end sub

ขอความกรุณาด้วยครับขอบคุณมากครับ