dim sql as string = "INSERT * FROM Driver(licence) VALUES(@Yes, @No) "
cmd = New OleDbCommand(sql, con)
cmd.Parameters.AddWithValue("Yes", Yes.checked)
cmd.Parameters.AddWithValue("No", No.checked)
Dim affect As Integer = cmd.ExecuteNonQuery()
If (affect < 1) Then
MsgBox("เกิดข้อผิดพลาด" & vbNewLine & "ไม่สามารพเพิ่มข้อมูลได้")
Else
MsgBox("เพิ่มข้อมูลเรียบร้อยแล้ว")
End If