ถามเรื่องการบันทึกลง 2 ตารางพร้อมกันหน่อยครับ มีโค้ดให้ช่วยดูหน่อยครับ

Dim objConn As SqlCeConnection
        objConn = New SqlCeConnection("Data source=D:\Project New test\WindowsApplication1\WindowsApplication1\Database1.sdf;")
        objConn.Open()

        Dim objCmd As New SqlCeCommand
        Dim strSQL As String
        Dim intnumrows As Integer
        strSQL = "SELECT COUNT(*) FROM saveteble where computer = '" & Me.txtcomputer.Text & "' "

        objCmd = New SqlCeCommand(strSQL, objConn)
        intnumrows = objCmd.ExecuteScalar

        If intnumrows > 0 Then
            MessageBox.Show("คอมพิวเตอร์เครื่องนี้มีคนเลือกแล้ว")
        Else
            strSQL = "insert into [saveTeble] ([id],[name],[surname],[department],[Number],[year],[time],[computer]) values " & _
                " ('" & Me.lblUser.Text & "','" & Me.lblName.Text & "','" & Me.lblsurName.Text & "','" & Me.lbldm.Text & "','" & Me.lblnumber.Text & "','" & Me.lblyear.Text & "','" & Now & "','" & Me.txtcomputer.Text & "')"

            strSQL = "insert into [backdata] ([id],[name],[surname],[department],[Number],[year],[time],[computer]) values " & _
               " ('" & Me.lblUser.Text & "','" & Me.lblName.Text & "','" & Me.lblsurName.Text & "','" & Me.lbldm.Text & "','" & Me.lblnumber.Text & "','" & Me.lblyear.Text & "','" & Now & "','" & Me.txtcomputer.Text & "')"


            objCmd = New SqlCeCommand
            With objCmd
                .Connection = objConn
                .CommandText = strSQL
                .CommandType = CommandType.Text

            End With