Dim connectionString As String = "your_connection_string_here"
Dim query As String = "SELECT ColumnName FROM TableName"
Using connection As New SqlConnection(connectionString)
Dim adapter As New SqlDataAdapter(query, connection)
Dim table As New DataTable()
adapter.Fill(table)
DataGridView1.DataSource = table
' تفعيل اللف النصي
DataGridView1.DefaultCellStyle.WrapMode = DataGridViewTriState.True
' ضبط ارتفاع الصفوف تلقائياً
DataGridView1.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
' ضبط عرض الأعمدة تلقائياً
DataGridView1.Columns("ColumnName").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
End Using