เพิ่ม/ลบข้อมูล 2ตารางในครั้งเดียว VB2010+access ได้ไหมครับ พอมีวิธีไหมครับ

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim comadd As OleDbCommand = New OleDbCommand
Dim num0 As String = 0
setcombovalue()
Dim NamePic As String = Now.Date.ToString("ddMMyy") & Now.TimeOfDay.Hours.ToString("00") & Now.TimeOfDay.Minutes.ToString("00") & ".jpg"
Dim Openfile As String = OpenFileDialog1.FileName
If BtStatus = "Add" Then
sqlconn = "INSERT into tblmember(mem_id,mem_name,mem_add,mem_sex,mem_tel,mem_email,mem_con,mem_pic) VALUES('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox6.Text & "','" & tmpFileName & "')"
                With comadd
                    .CommandType = CommandType.Text
                    .CommandText = sqlconn
                    .Connection = Conn
                .ExecuteNonQuery()
            End With
            sqlconn1 = "INSERT into sharesale(mem_id,share_amount,share_price,share_date,share_emp,share_sta) VALUES(" & TextBox1.Text & ", 0,0,ลงทะเบียนใหม่,'" & TextBox7.Text & "',ลงทะเบียนใหม่)"
            With comadd
                .CommandType = CommandType.Text
                .CommandText = sqlconn1
                .Connection = Conn
                .ExecuteNonQuery() 'error ตรงนี้ครับ no value........
            End With
        ElseIf BtStatus = "Edit" Then
            If tmpFileName <> "" Then
                sqlconn = " UPDATE tblmember SET mem_name='" & TextBox2.Text & "',mem_add='" & TextBox3.Text & "',mem_sex='" & TextBox4.Text & "',mem_tel='" & TextBox5.Text & "',mem_email='" & TextBox6.Text & "',mem_con='" & datemem & "',share_total='" & Nothing & "',mem_pic='" & tmpFileName & "' WHERE mem_id = '" & TextBox1.Text & "'"
            Else
                sqlconn = " UPDATE tblmember SET mem_name='" & TextBox2.Text & "',mem_add='" & TextBox3.Text & "',mem_sex='" & TextBox4.Text & "',mem_tel='" & TextBox5.Text & "',mem_email='" & TextBox6.Text & "',mem_con='" & datemem & "',share_total='" & Nothing & "' WHERE mem_id = '" & TextBox1.Text & "'"
            End If
            With comadd
                .CommandType = CommandType.Text
                .CommandText = sqlconn
                .Connection = Conn
                .ExecuteNonQuery()
            End With
End sub