นี่คือโค้ดที่หนูทำนะค่ะ มันขึ้นแต่ตัวเดิม รันกี่รอบก็ขึ้นแต่ตัวเดิม
sql = "SELECT TOP 1 * FROM Question WHERE (((Question.[L_No])='1')) ORDER BY Rnd(L_NO)"
Dim re As New OleDbCommand
re.CommandText = sql
re.Connection = Cnn
OleReader = re.ExecuteReader(CommandBehavior.SingleRow)
OleReader.Read()
testlbl.Text = OleReader.Item("Q_Question").TCode (VB.NET)