¿Cómo aumentar el número de columnas en el control del datagrid en VB?

El número de columnas es automático, que es el número de campos en el conjunto de registros

'Ctrl t para encontrar Microsoft DataGrid Control....

'Menú "Proyecto" - gt; "Referencia" Buscar objeto de datos Microsoft ActiveX....

Atenuar como nuevo ADODB.Connection

Atenuar primero como nuevo ADODB.Recordset

Dim SqlStr As String

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" amp App.Path amp "\db1.mdb; Mode=ReadWrite ; Persist Security Info=False ; Jet Jet OLEDB: Contraseña de la base de datos=111"

SqlStr = "Seleccionar * de una tabla"

rst.CursorLocation = adUseClient

rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText 'Abre el conjunto de registros

Set DataGrid1.DataSource = rst 'Modifica la fuente de datos para DataGrid