如何以多种形式从mysql在datagrid中显示数据？

Question

我有2个表单，在第一个表单中，datagrid填充了mysql中的数据。然后重复这个为我的第二个表单我复制了代码并更改了所有变量名称，但是当我加载表单时，datagrid没有填充mysql数据，它甚至不会抛出错误。这是我用于第一个表单的代码，下面是我的第二个表单。

这是第二种形式的代码，它不起作用，第一种形式的代码完全相同（更改了变量名）。

第二种形式：

Public Class frmShareholderDetails
Dim connection As New MySqlConnection
Dim myadapter As New MySqlDataAdapter
Dim mycommandbuilder As MySqlCommandBuilder
Dim mycommand As MySqlCommand
Dim datatable As New DataTable
Dim dataset As New DataSet
Dim mydatagridviewprinter As datagridviewprinter
Dim objconnection As New MySqlConnection("Server=localhost;database=ba-solutions;user id=root;password=")
'declaring variables


Private Sub frmShareholderDetails_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
    connection.ConnectionString =
        ("Server=localhost;database=ba-solutions;user id=root;password=")

    Try
        connection.Open()
        'opens connection
    Catch ex As Exception
        MsgBox("Cannot connect to BA-Solutions Database")
    End Try

    myadapter.SelectCommand = New MySqlCommand
    myadapter.SelectCommand.Connection = connection
    myadapter.SelectCommand.CommandText = "select * from Shareholder_Details"
    'creates adapters
    mycommandbuilder = New MySqlCommandBuilder(myadapter)
    myadapter.Fill(datatable)
    myadapter.SelectCommand.CommandType = CommandType.Text

    dataset = New DataSet
    myadapter.Fill(dataset, "Shareholder_Details")
    rowposition = 0
    DGVShareholder.DataSource = dataset.Tables("Shareholder_Details")
    'sets datasource
    connection.Close()
    'close connection

    Dim recordsondisplay As Integer
    recordsondisplay = DGVShareholder.RowCount
    lblRecords.Text = recordsondisplay & " records in database."
End Sub

结束班

谁能看到问题出在哪里？我一直在使用反复试验，但还没有解决方案。