Vb.net如何将不同的数据库链接到不同的图表

Imports System.Data.SqlClient
Imports System.Windows.Forms.DataVisualization.Charting

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 创建数据库连接字符串
        Dim connectionString1 As String = "Data Source=Server1;Initial Catalog=Database1;User ID=Username1;Password=Password1"
        Dim connectionString2 As String = "Data Source=Server2;Initial Catalog=Database2;User ID=Username2;Password=Password2"

        ' 创建数据库连接对象
        Dim connection1 As New SqlConnection(connectionString1)
        Dim connection2 As New SqlConnection(connectionString2)

        ' 打开数据库连接
        connection1.Open()
        connection2.Open()

        ' 创建查询语句
        Dim query1 As String = "SELECT * FROM Table1"
        Dim query2 As String = "SELECT * FROM Table2"

        ' 创建数据适配器和数据集
        Dim adapter1 As New SqlDataAdapter(query1, connection1)
        Dim adapter2 As New SqlDataAdapter(query2, connection2)
        Dim dataset1 As New DataSet()
        Dim dataset2 As New DataSet()

        ' 填充数据集
        adapter1.Fill(dataset1, "Table1")
        adapter2.Fill(dataset2, "Table2")

        ' 关闭数据库连接
        connection1.Close()
        connection2.Close()

        ' 创建图表对象
        Dim chart1 As New Chart()
        Dim chart2 As New Chart()

        ' 设置图表属性
        ' ...

        ' 绑定数据源
        chart1.DataSource = dataset1.Tables("Table1")
        chart2.DataSource = dataset2.Tables("Table2")

        ' 绘制图表
        ' ...

        ' 将图表添加到窗体中
        Me.Controls.Add(chart1)
        Me.Controls.Add(chart2)
    End Sub
End Class