dtpicker in one of datagrid columns visual basic 6

Dim rs As ADODB.Recordset
    
Private Sub crearRSDesconectado()
    Set rs = New ADODB.Recordset
    
    'CREAR EL RS DESCONECTADO.
    With rs
        .CursorLocation = adUseClient
        
         ' Añadimos los campos que los puedes llamar como
         ' creas conveniente:
        .Fields.Append "Campo1", adInteger
        .Fields.Append "Campo2", adVarWChar, 50
        .Fields.Append "Campo3", adVarWChar, 50
        .Fields.Append "Campo4", adDBDate
        ' Abrimos el recordset
        .Open
    End With
    
    'LLENAR EL RS.
    Dim i As Long
    For i = 0 To 10
        With rs
            
            rs.AddNew
            
            rs.Fields("Campo1").Value = i
            rs.Fields("Campo2").Value = "Campo2 " & i
            rs.Fields("Campo3").Value = "Campo3 " & i
            rs.Fields("Campo4").Value = Date + 1
            
            rs.Update
        End With
    Next
    
    
    ' Enlazamos el control DataGrid
    Set DataGrid1.DataSource = rs
End Sub 
Private Sub IniciarGrilla()
    
    With DataGrid1
        .Visible = True
        .AllowDelete = True
        .AllowUpdate = True
        .AllowRowSizing = False
        .MarqueeStyle = dbgHighlightRow
        '.top = 2520
        '.Height = 4800
    End With 
End Sub 
Private Sub DataGrid1_BeforeColEdit(ByVal ColIndex As Integer, ByVal KeyAscii As Integer, Cancel As Integer)
    With DataGrid1
        ' if this is a date column, edit it with the date picker control
        If ColIndex = 3 Then
            
            ' we'll handle the editing ourselves
            Cancel = True
            
            ' position date picker control over cell
            'dtPick.Move Grilla.CellLeft + 250, Grilla.CellTop + 150, Grilla.CellWidth, Grilla.CellHeight
            
            dtPick.Move .Columns(ColIndex).Left + .Left, .RowTop(.Row) + .Top, .Columns(ColIndex).Width, .RowHeight
            
            ' initialize value, save original in tag in case user hits escape
            dtPick.Value = .Text
            dtPick.Tag = .Text
            
            ' show and activate date picker control
            dtPick.Visible = True
            dtPick.SetFocus
            dtPick.ZOrder
            ' make it drop down the calendar
            'SendKeys "{f4}"
            
        End If
    End With
End Sub 
Private Sub DataGrid1_Scroll(Cancel As Integer)
    ' don't scroll while editing dates
    If dtPick.Visible Then Cancel = True
End Sub 
Private Sub Form_load()
    dtPick.Visible = False
    With DataGrid1
        .Columns.Add 0
        .Columns.Add 1
        .Columns.Add 2
        .Columns.Add 3
        Call IniciarGrilla
        Call crearRSDesconectado
    End With
End Sub 
Private Sub dtPick_LostFocus()
    ' hide date picker when user is done with it
    dtPick.Visible = False
End Sub 
Private Sub dtPick_Change()
    ' update grid value whenever the data changes
    DataGrid1.Text = dtPick.Value
End Sub 
Private Sub dtPick_KeyDown(KeyCode As Integer, Shift As Integer)
    
    ' close date picker when user hits escape or return
    Select Case KeyCode
        Case vbKeyEscape
            'grilla = dtPick.Tag
            dtPick.Visible = False
        Case vbKeyReturn
            dtPick.Visible = False
    End Select
    
End Sub
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121: