求段VB2008能用的代碼

循环查询 第一个查询语句str1=select * from 表1 where 字段1=textbox1.text 产生一个结果集dr1

  如果dr1字段2列中有首个位等于"A" 那么执行第二个查询 并把dr1结果输出到DataGridView1(或先
  不输出最终结果是要将查询出来的多个结果集合并输出到DataGridView1),否则将结果集dr1填充DataGridView1 结束

  第二个查询语句str2=select * from 表1 where 字段1=dr1字段2符合上面条件的值
  如果没有符合条的值,就将结果输出到DataGridView1 结束

  第二个查询可能出来多个结果集dr2,dr3....(估计在5-15个)将这些结果集通过合并到dr1中或输出到DataGridView1
  并在每个结果集执行判断如果字段2列中有首个位等于"A" 那么执行循环查询

  str3=select * from 表1 where 字段1=drn..字段2符合上面条件的值
  如果没有符合条的值,就将结果输出到DataGridView1 结束

  第三个查询可能出来多个结果集drn....(估计在10个以下)将这些结果集通过合并到dr1中或输出到DataGridView1
  并在每个结果集执行判断如果字段2列中有首个位等于"A" 那么执行循环查询

  str4=select * from 表1 where 字段1=drn..字段2符合上面条件的值
  如果没有符合条的值,就将结果输出到DataGridView1 结束

  第四个查询可能出来多个结果集drn....(估计在5个以下)将这些结果集通过合并到dr1中或输出到DataGridView1
  并在每个结果集执行判断如果字段2列中有首个位等于"A" 那么执行循环查询

  str5=select * from 表1 where 字段1=drn..字段2符合上面条件的值
  如果没有符合条的值,就将结果输出到DataGridView1 结束