[VB.NET]关于OleDbDataAdapter的Fill问题

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
关于OleDbDataAdapter的Fill问题
Dim ProgramRightDS As New DataSet

Dim ProgramDA As OleDbDataAdapter
Dim ProgramRightDA As OleDbDataAdapter
ProgramDA = New OleDbDataAdapter( "SELECT PROGRAMID, PROGRAMDESC FROM PROGRAM ORDER BY PROGRAMDESC ", myConnection)
''多表查询的Select语句
ProgramRightDA = New OleDbDataAdapter( "SELECT PROGRAM.PROGRAMDESC, PROGRAMRIGHTS.RIGHTID FROM PROGRAMRIGHTS,PROGRAM WHERE PROGRAM.PROGRAMID=PROGRAMRIGHTS.PROGRAMID; ", myConnection)

ProgramDA.Fill(ProgramRightDS, "PROGRAM ")

ProgramRightDA.Fill(ProgramRightDS) ''提示出错

我想把ProgramRightDA也Fill到ProgramRightDS中，如何实现？ProgramRightDA是一个多表查询，在Fill时我如何写表名？
__________________________________________________________________________
Dim ProgramRightDS As New DataSet
提示的是什么错误，把错误信息写出来。

可以用个变通的方法：
把两个Sql写在一起。
Dim ProgramDA As OleDbDataAdapter
ProgramDA = New OleDbDataAdapter( "SELECT PROGRAMID, PROGRAMDESC FROM PROGRAM ORDER BY PROGRAMDESC;SELECT PROGRAM.PROGRAMDESC, PROGRAMRIGHTS.RIGHTID FROM PROGRAMRIGHTS,PROGRAM WHERE PROGRAM.PROGRAMID=PROGRAMRIGHTS.PROGRAMID ", myConnection)

ProgramDA.Fill(ProgramRightDS)
__________________________________________________________________________
dataset可以填多个表的啊，表名随便，只要不重复
__________________________________________________________________________
Dim ProgramRightDS As New DataSet

Dim ProgramDA As OleDbDataAdapter

ProgramDA = New OleDbDataAdapter( "SELECT PROGRAMID, PROGRAMDESC FROM PROGRAM ORDER BY PROGRAMDESC;SELECT PROGRAM.PROGRAMDESC, PROGRAMRIGHTS.RIGHTID FROM PROGRAMRIGHTS,PROGRAM WHERE PROGRAM.PROGRAMID=PROGRAMRIGHTS.PROGRAMID; ", myConnection)

ProgramDATableMappings.Add( "PROGRAM1 ", "你打算起的第二个表名 ");
ProgramDA.Fill(ProgramRightDS, "PROGRAM ")
__________________________________________________________________________
Dim ProgramRightDS As New DataSet

Dim ProgramDA As OleDbDataAdapter

ProgramDA = New OleDbDataAdapter( "
SELECT PROGRAMID, PROGRAMDESC FROM PROGRAM ORDER BY PROGRAMDESC;
SELECT PROGRAM.PROGRAMDESC, PROGRAMRIGHTS.RIGHTID FROM PROGRAMRIGHTS,PROGRAM WHERE PROGRAM.PROGRAMID=PROGRAMRIGHTS.PROGRAMID; ", myConnection)

ProgramDA.TableMappings.Add( "PROGRAM1 ", "你打算起的第二个表名 ");
ProgramDA.Fill(ProgramRightDS, "PROGRAM ")
__________________________________________________________________________
谢谢！可以了
__________________________________________________________________________