Private Sub Form_Load()
    Dim Random As Integer
    Randomize
    Random = Int((Rnd * 30) + 1)
    Dim Sql
    Sql = "select * from Validation where id='" & Random & "'"
    Dim Res As New ADODB.Recordset
    Res.Open Sql, Conn, 1, 1
    R_random.Caption = Res("validation")
End Sub
代码没有编完，编到这运行就报错了
上面为代码，到res.open sql,conn,1,1报错
引用的是MADO2.8L
数据库中的对应名称没有错误，求帮忙

好像conn没有定义。

Conn

Dim Res As New ADODB.Recordset后面添加下面这条语句，你试试看.
Dim conn As New Connection