Private bindMessage As New BindingSource()
 
   Public Sub ShowMessage()
        Try

            Me.bindMessage.DataSource = GetData("select * from Message ORDER BY MessageId DESC")
            Me.grdMessage.DataSource = Me.bindMessage
            Me.grdMessage.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.DisplayedCellsExceptHeaders
        Catch ex As Exception
            '
        End Try

    End Sub

    Public Function GetData(ByVal sqlCommand As String) As DataTable
        Dim table As New DataTable

        Try
            Dim command As New SqlCommand(sqlCommand, GetConnect())
            Dim adapter As SqlDataAdapter = New SqlDataAdapter()
            adapter.SelectCommand = command
            table.Locale = System.Globalization.CultureInfo.InvariantCulture
            adapter.Fill(table)
        Catch ex As Exception
            SetText(ex.Message)
        End Try

        Return table

    End Function

<?xml version="1.0" encoding="utf-8" ?>
<configuration>
  
  <connectionStrings>
    <add name="Connect" connectionString="Data Source=SQLSERVER1;Initial Catalog=DATABASE1;User Id=sa;Password=12345;" providerName="System.Data.SqlClient" />
  </connectionStrings>
...