Tamaño DataGrid

Hola a todos.
Hace unos dias me pasaron un codigo en el grupo vb, funciona perfecto, pero
tengo problemas con el tamaño del DataGrid, no puedo modificarlo, probe con
DataGrid1.DefColWidth 0 y tampoco funciona, tambien con AllowRowSizing
pero cuando corrijo manualmente provoca un error que cierra excel.

Cualquiera sea el tamaño del DataGrid en tiempo de diseño, luego en tiempo
de ejecucion los datos son llenados en un cuadrito de 2 x 2 cm.
________________
| | |
|_____| |
| |
|_______________|
mas o menos queda asi, los datos en el cuadrito y el resto vacio.
Como puedo controlar el tamaño donde se muestran los datos?
Saludos.
Ahi va el codigo de llenado.
Private Sub VerBase2005()

Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset

Set cnn = New ADODB.Connection

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Mis Documentos\MiBase.xls;" & _
"Extended Properties=""Excel 8.0;HDR=Yes;"""

Set rs = New ADODB.Recordset
With rs
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Open "SELECT * FROM [Hoja1$A1:G12000]", cnn, , , adCmdText
End With

Set DataGrid1.DataSource = rs

DataGrid1.Visible = True
End Sub