Selecting from a DataList control within coding?

[oh1mie]

Private Sub Form_Activate()
    Screen.MousePointer = vbDefault
    If Not Data2.Recordset.EOF Then
       DataList1.BoundText = Data2.Recordset!Id
       DataList1_Click
    End If
End Sub