表a 编号 姓名 001 王二
002 李四
003 张六
表b 编号 姓名
001 王二,张六
001 李四,张六
002 李四,张六
002 王五,李四
根据表a的姓名查找记录,表b编号等于表a编号 ,表b的姓名包含表a姓名
Dim Tbl As Table = Tables("表a")
Dim cur As String
Dim cur1 As String
cur = tbl.Current("编号")
cur1 = tb2.current("姓名")
Tables("例子").Fill("Se lect * From {表b} where 编号= '" & cur & "' and 姓名 like '" & cur1 & "' ","s" ,False)
这样查询不到记录,请问: 姓名 like '" & cur1 & "' 这里对不对。