Datagridview不显示SQL Server的数据vb.net

Imports System.Data.SqlClient

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim connectionString As String = "Data Source=服务器名称;Initial Catalog=数据库名称;User ID=用户名;Password=密码"
        Dim query As String = "SELECT * FROM 表名"

        Using connection As New SqlConnection(connectionString)
            connection.Open()

            Using command As New SqlCommand(query, connection)
                Using reader As SqlDataReader = command.ExecuteReader()
                    Dim dataTable As New DataTable()
                    dataTable.Load(reader)

                    DataGridView1.DataSource = dataTable
                End Using
            End Using
        End Using
    End Sub
End Class