这个问题怎么解决

定义使用的不是Re吗，后面RS肯定出错

应该是Con还没有被赋值，也就是数据库的连接都还没建立，你上哪里去查询数据库去

在Re.Open之前加两句：
Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=你的数据库文件名"
Con.Open
在Re.Close之后加一句：
Con.Close