اتصال چند جدول به کریستال

سلام
من تو کریستالم از دوتا جدول فیلد دارم
اما توی کد نویسی نمیدونم چیکارش کنم

Public Class frmacclist

   

    Private Function fncGetData() As DataSet

        Dim strconn As String = "provider=microsoft.jet.OLEDB.4.0;data source=" & Application.StartupPath & "\taxi.mdb;"

        Dim sqlConnection1 As New OleDbConnection(strConn)

        Dim strQuery As String = "Select * From tbaccounts"

        Dim sqlDataAdapter1 As New OleDbDataAdapter(strQuery, sqlConnection1)

        Dim dstData As New taxiDataSet

        sqlDataAdapter1.Fill(dstData, "tbaccounts")

        Return dstData

    End Function



    Private Sub frmacclist_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim strReportPath As String = GetCurrentDirectory()

        If strReportPath.Substring(strReportPath.Length - 9) = "bin\Debug" Then

            strReportPath = strReportPath.Substring(0, strReportPath.Length - 10)

        End If

        strReportPath &= "\rpacclist.rpt"

        Dim rptEmployee As New CrystalDecisions.CrystalReports.Engine.ReportDocum  ent

        rptEmployee.Load(strReportPath)

        Dim dstData As DataSet = fncGetData()

        rptEmployee.SetDataSource(dstData)

        CrystalReportViewer1.ReportSource = rptEmployee



    End Sub

End Class

الان فقط جدول tbaccounts وصله اما میخوام جدول setting رو هم وصل کنم
چارش چیه؟

Dim dstData As New taxiDataSet

Dim strQuery As String = "Select * From tbaccounts"

 Dim strQuerysetting As String = "Select * From setting"

Dim sqlDataAdapter1 As  OleDbDataAdapter

sqlDataAdapter1 =new OleDbDataAdapter(strQuery, sqlConnection1)

sqlDataAdapter1.Fill(dstData, "tbaccounts")

sqlDataAdapter1 =new OleDbDataAdapter(strQuerysetting, sqlConnection1)

sqlDataAdapter1.Fill(dstData, "setting

اگر حداول دارای رابطه هستند نیازی به پرکردن دوباره دیتاست نیست ولی اگر جداول هیچ رابطه ندارند باید هردو را بریزی توی دیتاست