решение 1 - ой проблемы вместо чилового значения подставить текст
подключаем Microsoft Data Formating Object Library 6.0
' объявляем объектную переменную
Option Explicit
Private WithEvents fmt As StdDataFormat
' описываем событие
Private Sub fmt_Format(ByVal DataValue As StdFormat.StdDataValue)
Select Case DataValue.Value
Case 1
DataValue.Value = "Первый"
Case 2
DataValue.Value = "Второй
End Select
End Sub
Private Sub Form_Load()

Set fmt = New StdDataFormat
Set grid.Columns(2).DataFormat = fmt
end sub

решение 2 -ой проблемы в DataGrid подставить выпадающий список
поместить на форму listBox заполнить его значениеми
Private Sub Form_Load()

grid.Columns(2).Button = True
end sub

Private Sub grid_ButtonClick(ByVal ColIndex As Integer)
Dim i As Integer
' If ColIndex < 1 Or ColIndex > grid2.Columns.Count Then Exit Sub
Dim valTop As Single

Select Case ColIndex
Case 2

If grid2.Top + grid2.RowTop(grid2.Row) + grid2.RowHeight + listBox1.Height > Me.ScaleHeight Then
valTop = grid2.RowTop(grid2.Row) - listBox1.Height
Else
valTop = grid2.RowTop(grid2.Row) + grid2.RowHeight
End If
With listBox1
.Top = grid2.Top + valTop
.Left = grid2.Left + grid2.Columns(ColIndex).Left
.Width = grid2.Columns(ColIndex).Width
.Visible = True
.SetFocus
End With
end case