Access数据库里面有两张表，建立一个窗体，想从数据表里面随机抽取两条记录显示在窗体上，如何做到呢？
数据库见附件。
问题
1. 想通过点击“随机抽取执法人员”按钮，能够从“执法人员名单”表里面随机抽取两位执法人员，显示其姓名
2. 击“随机抽取检查企业”，能够从“抽查企业名单”中随机选出一个企业信息

Access数据库文件

太感谢了，我试试

太感谢了，帮我解决了大问题，现在问题又来了，如何把查询结果放入窗体中的那个文本框里面呢？
Private Sub Command2_Click()
  Dim conn As ADODB.Connection
  Set conn = New ADODB.Connection
  conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Joyce\Desktop\tmp\RandSystem.accdb;Persist Security Info=False"
  conn.Open
  strsql = "SELECT TOP 2 执法人员名单.[姓  名] FROM 执法人员名单 ORDER BY RND(ID)"
   
  Dim rs As ADODB.Recordset
  Set rs = New ADODB.Recordset
  rs.Open strsql, conn, 1, 1
  
   '自己编写随机数算法，以下示例显示1,3记录
  MsgBox "记录数：" & Str(rs.RecordCount) '显示总记录数’
  
  Text4 rs.Fields(1) '//如何把查询结果放入窗体中的那个文本框里面呢？ 系统提示这样做不对
  rs.Move 2
  Text4 rs.Fields(1) '显示第二个记录

End Sub

修改为这样： If Not IsNull(rs.Fields("姓  名")) Then Me.Text4.Value = rs.Fields("姓  名").Value
问题就解决了。

太感谢了，