Private Sub DBList1_Click() grdCensus.Col = 2 'replace with the column you need grdCensus.Text = DBList1.Text grdCensus.SetFocus grdCensus.Col = 3 'the next col you want to have focus DBList1.Visible = False End Sub In the RowColChange event of your grid : With grdCensus 'in the code below replace 2 with your column # If .Col = 2 And .Text = "" Then DBList1.Left = .Left + .Columns(2).Left DBList1.Top = .Top + (.Row * .RowHeight) + SSTab1.Top 'the line below makes sure the list isn't being shown off 'the bottom of the screen. You'll need to adjust the value '3600 as needed depending on your forms size and position If DBList1.Top > 3600 Then DBList1.Top = 3600 DBList1.ZOrder 0 DBList1.Visible = True DBList1.SetFocus Else DBList1.Visible = False End If end with>hi,