我是实现两个表相连接显示在控件中，我的laifang表中有来访时间和离开时间设置了日期型数据
程序如下：
Dim con As New adodb.Connection
Dim rs As New adodb.Recordset
Private Sub Form_Load()
con.Open "dsn=stud"
Set rs = con.Execute("select * from laifang inner join laifangrr on laifang.证件号码=laifangrr.证件号码")                     '实现表连接问题出在这里
Set MSHFlexGrid1.DataSource = rs
con.Close
End Sub

sql 语句出错

sqlA = "select * from laifang group by 证件号码"
sqlB = "select * from laifangrr group by 证件号码"
  sql = "select a.字段1,a.字段2,....,b.字段1,.... FROM (" & sqlA & ") as a right join (" & sqlB & ") as b on a.证件号码=b.证件号码"
Set rs = con.Executen (sql)

你的两个表中有名称相同的字段,把字段分别列出,例如:
Set rs = con.Execute("select laifang.来访时间,laifang.离开时间,laifangrr.来访时间,laifangrr.离开时间 from laifang inner join laifangrr on laifang.证件号码=laifangrr.证件号码")

sql 语法错误

將括號去掉