Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
        Dim sqlADD As String
        Dim cm As New OleDbCommand
        sqlADD = "INSERT INTO workbase (date_doc,num_sr,num_ss,school_name,work_all,start_work,stop_work,total_day,system_work,system,status,grade1,grade2,grade3,grade4)" 'start_work,system_work,system,grade1,grade2,grade3,grade4
        sqlADD &= " VALUES ('" & datedoc.Value & "',"
        sqlADD &= "'" & numsr.Text & "',"
        sqlADD &= "'" & numss.Text & "',"
        sqlADD &= "'" & schoolname.Text & "',"
        sqlADD &= "'" & workall.Text & "',"
        sqlADD &= "'" & startwork.Value & "',"
        sqlADD &= "'" & stopwork.Value & "',"
        sqlADD &= "'" & lblday.Text & "',"
        'sqlADD &= "'" & cbowork.Text & "',"
        If cbowork.SelectedIndex = 0 Then
            sqlADD &= "'1',"
        ElseIf cbowork.SelectedIndex = 1 Then

            sqlADD &= "'2',"
        ElseIf cbowork.SelectedIndex = 2 Then
            sqlADD &= "'3,"
        ElseIf cbowork.SelectedIndex = 3 Then
            sqlADD &= "'4,"
        ElseIf cbowork.SelectedIndex = 4 Then
            sqlADD &= "'5,"
        End If
        '++++++++++++++++++++++++ บันทึกเข้าฟิวล์ system  ตาราง workbase
        If service.Checked = True Then ' =============
            sqlADD &= "'0'," 'install
        ElseIf install.Checked = True Then
            sqlADD &= "'1'," 'service
        ElseIf rdop.Checked = True Then
            sqlADD &= "'2'," 'อบรม
        End If
        'โค๊ดตรงนี้  เป็นเงื่อนไขบริการที่ถูก ติ๊ก service ช่องประเภทบริการจะแสดงขี้นมาโชว์ แล้วไปติ๊ก ประเภทการบริการแล้วให้ บันทึกเป็นตัวเลขเข้า ฟิวด์ นะครับ       โค๊ดตรงนี้เป็นประเภทบริการครับ  
        If service.Checked = True Then  '+++++++++บันทึกเข้าฟิล์ service_type  ตาราง service +++++
            sqlADD = "INSERT INTO service (service_type)"
            If rdophone.Checked = True Then
                sqlADD &= "'0',"
            ElseIf rdoremote.Checked = True Then
                sqlADD &= "'1',"
            ElseIf rdoonsite.Checked = True Then
                sqlADD &= "'2',"
            End If

        End If ' บันทึกเข้า ฟิวล์ stutus
        If rdocom.Checked = True Then
            sqlADD &= "'0'," 'Complete
        ElseIf rdofol.Checked = True Then
            sqlADD &= "'1'," 'Follow
        End If
        sqlADD &= "'" & grade1.Text & "',"
        sqlADD &= "'" & grade2.Text & "',"
        sqlADD &= "'" & grade3.Text & "',"
        sqlADD &= "'" & grade4.Text & "')"
        With Conn
            If .State = ConnectionState.Closed Then .Close()
            .ConnectionString = strconn
            .Open()
        End With

        'ใช้ oledbcommand ในการเพิ่มข้อมูล
        If MessageBox.Show("เพิ่มรายชื่อใหม่ใช่หรือไม่?", "ยันยืน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            With cm
                .CommandType = CommandType.Text
                .CommandText = sqlADD
                .Connection = Conn
                tmprow = .ExecuteNonQuery()
            End With
            MessageBox.Show("เพิ่มให้ล่ะ", "แสดดด", MessageBoxButtons.OK, MessageBoxIcon.Information)
            numsr.Clear()
            numss.Clear()
            schoolname.Clear()
            grade1.Clear()
            grade2.Clear()
            grade3.Clear()
            grade4.Clear()
            lblday.Text = ""
            workall.Clear()
            numsr.Focus()
        End If
    End Sub

อยากจะช่วยให้แนะนำ code ที่ใช้ในการ บันทึกข้อมูลไป อีก table หน่อยครับ ที่มีความสัมพันธ์ กันนะครับ     หรือต้องเพิ่ม code ตรงไหนบอกด้วยนะครับ