VB6:查询表中的所有字段

  只有两个text控件和一个MSHFlexGrid控件，数据库为access 2000.利用代码con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\a.mdb;Persist Security Info=False"连接数据库。text1控件输入表格名称，表有很多且每张表的字段不相等，text2输入要查找的关键字（模糊查找）。请问各位高手怎么编写代码才可以把含有关键字的那几行显示在MSHFlexGrid上。
例如：表1
id     name    age  
1      张三    42
2      李思    22 表2  
id      hda      add     adg
1       3211     低能    奥迪
2       膜天     3333    能的
3       方法     让人    454若选择“表1”，输入关键字为“张”则MSHFlexGrid上显示
id     name    age  
1      张三    42
若选择“表2”，输入关键字为“3”则MSHFlexGrid上显示
id      hda      add     adg
1       3211     低能    奥迪
2       膜天     3333    能的
3       方法     让人    454