Переместить combobox в нужный столбец и растянуть по ширине столбца в DataGrid - VB

Формулировка задачи:

Как это сделать? Всю голову сломал! И дайте литературу по DataGrid, а то как слепой котёнок тыкаюсь.

Решение задачи: «Переместить combobox в нужный столбец и растянуть по ширине столбца в DataGrid»

textual
                            Листинг программы 
                        

                            Option Explicit
Dim rs As ADODB.Recordset
Dim conn As ADODB.Connection
Dim strSQLString As String ''sql query string
 
Private Sub Form_Load()
Set conn = New ADODB.Connection ''connection object
Set rs = New ADODB.Recordset ''recordset object
 
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=False"
conn.Open
 
strSQLString = "select * from tblFields order by Fields"
rs.Open strSQLString, conn, adOpenDynamic, adLockPessimistic
 
Do Until rs.EOF
    cmbFields.AddItem rs.Fields("Fields").Value
    rs.MoveNext
Loop
 
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from tblNumbers order by Number"
Set dGrid.DataSource = Adodc1
Adodc1.Refresh
 
dGrid.Columns(1).Button = True
 
End Sub
 
Private Sub dGrid_ButtonClick(ByVal ColIndex As Integer)
    cmbFields.Width = dGrid.Columns(1).Width
    cmbFields.Left = dGrid.Columns(1).Left + dGrid.Left
    cmbFields.Top = dGrid.Columns(1).Top + dGrid.Top + dGrid.RowTop(dGrid.Row) - dGrid.RowHeight
    cmbFields.Visible = True
End Sub
 
Private Sub dGrid_Click()
    cmbFields.Visible = False
End Sub
 
Private Sub cmbFields_Click()
    dGrid.Columns(1).Text = cmbFields.Text
    cmbFields.Visible = False
End Sub
                        