求助： VB datalist 控件在获得焦点时如何自动选中第一行？

如：
   Private Sub Text1_KeyPress(KeyAscii As Integer)
      If KeyAscii = 13 Then
         DataList1.SetFocus         
      End If
   End Sub
   Private Sub DataList1_GotFocus()
   ............' 问：如何自动选中第一行的text（颜色变蓝）
   End Sub