Puoi provare a dimensionare le colonne della griglia in questo modo
codice:
       Set DataGrid1.DataSource = RS
        y% = 0
        For Each MyCol In DataGrid1.Columns
        'prima colonna    
            If y = 0 Then
                MyCol.Width = 1900
            Else 'colonne successive
                MyCol.Width = 6000
            End If
            y% = y% + 1
        Next
        DataGrid1.Refresh
Ciao