VB datareport 两个表

我要从SQL数据库中，对两个表查询得出数据。(VB 在datagrid1中显示)
  表1：001   小鸟公司
       002   山杨商店
  表2 :0001   001    苹果
       0002   001    西瓜
       0003   001    猪肉
       0004   001    兔肉
       0005   002    牛肉
       0006   001    棉花   ...
当text1(0)=001时   执行： 
S = "select  发货清单.* ,发货清单产品表.* from 发货清单 ,发货清单产品表 where 发货清单.发货清单号= '" + Trim(Text1(0).Text) + "'AND 发货清单产品表.发货清单号= '" + Trim(Text1(0).Text) + "'"
  RS.Open S, conn, , adCmdText       '发货清单(表1) 发货清单产品表（表2）
  Set datagrid1.DataSource = RS 
然后得出相同5条001 小鸟公司 与表2 编号等于001的5条不同记录
而我的目的要在datagrid1中显示：
只要表1：1条 对应表2：5条
既：001 小鸟公司
    0001   001    苹果
    0002   001    西瓜
    0003   001    猪肉
    0004   001    兔肉
    0006   001    棉花 
总结：我的代码肯定出问题，conn连接没有错误的。具体的怎么改呢？能说详细点吗（代码），我刚学不久。谢谢大家。我很痛苦，在线等待。