SQLite数据据取值

[rikoukai]

环境：VB.NET+SQLite
SQLite数据库的链接没有问题，但是从数据库取值有错误。
代码:
Dim conn As New Data.SQLite.SQLiteConnection
conn.ConnectionString = "Data Source=" & Application.StartupPath & "\Resources\LeaveMessages.db"
conn.Open()

Dim cmd As New Data.SQLite.SQLiteCommand
cmd.Connection = conn
cmd.CommandType = CommandType.Text
cmd.CommandText = "SELECT * FROM Detial ORDER BY RANDOM() limit 1"
Dim rd As Data.SQLite.SQLiteDataReader = cmd.ExecuteReader
Try
TextBox5.Text = rd.GetValue(1)
Catch ex As Exception
MsgBox(ex.Message) ---------------------> 显示 No current row错误
Exit Sub
End Try
请麻烦帮帮忙，非常感谢。

[shoppo0505]

SELECT * FROM Detial 有Detial 这个表格么? 写错了吧? Detial ? Detail?