gridsamp

    Function DefDataGridViewStyle(ByRef DataGridView As DataGridView, ByVal intSortMode As Integer) As Boolean
        DefDataGridViewStyle = False
        On Error GoTo EXCEPT_01
        '*******DataGrid基準設定***************************
        DataGridView.RowHeadersWidth = 25
        DataGridView.ColumnHeadersHeight = 20
        'DataGridView.ScrollBars = System.Windows.Forms.ScrollBars.Both '----スクロールバー
        DataGridView.AllowUserToAddRows = False '------------------------------------Row追加の許可なし
        DataGridView.ReadOnly = True '-----------------------------------------------Row更新の許可なし
        DataGridView.AllowUserToDeleteRows = False '---------------------------------Row削除の許可なし
        DataGridView.AllowUserToOrderColumns = False '-------------------------------手動列移動不可
        'DataGridView.SelectionMode = DataGridViewSelectionMode.FullRowSelect '------全Cell選択可能
        DataGridView.MultiSelect = False '-------------------------------------------複数選択不可
        DataGridView.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.None '----------高さ調節不可
        DataGridView.AllowUserToResizeColumns = True '-------------------------------列幅変更可能
        DataGridView.ColumnHeadersHeightSizeMode = _
            DataGridViewColumnHeadersHeightSizeMode.DisableResizing '----------------Columヘッダー高さ調整不可
        DataGridView.AllowUserToResizeRows = False '---------------------------------Rowの高さ変更不可
        DataGridView.RowHeadersWidthSizeMode = _
            DataGridViewRowHeadersWidthSizeMode.DisableResizing '--------------------Rowヘッダー幅調整不可
        DataGridView.RowHeadersVisible = True '--------------------------------------RowヘッダーVisible
        DataGridView.ShowCellToolTips = False '--------------------------------------ToolTips非表示
        Select Case intSortMode
            Case 0 '-----------------------------------------------------------------全てのColでSortを許可する
            Case 1
                For Each c As DataGridViewColumn In DataGridView.Columns '-----------全てのColでSortを制限する
                    c.SortMode = DataGridViewColumnSortMode.Programmatic '-----------プログラムで可能,NotSortable---全て不可
                Next c
            Case Else
                For Each c As DataGridViewColumn In DataGridView.Columns '-----------全てのColでSortを制限する
                    c.SortMode = DataGridViewColumnSortMode.NotSortable '------------プログラムで可能,NotSortable---全て不可
                Next c
        End Select
        '*****************************************************
        DefDataGridViewStyle = True
EXCEPT_01:
    End Function

test

test01

Sample code

Option Compare Database
Option Explicit
Private mcn As ADODB.Connection
Private mrsAdoQRs As ADODB.Recordset
Private msErrorMsg As String
Public Property Get GetAdoQRs() As ADODB.Recordset
    Set GetAdoQRs = mrsAdoQRs
End Property