请教数据库控件datalist的dbclick事件

Option Explicit

Private Sub DataList1_DblClick()
    Adodc1.Recordset.Move DataList1.SelectedItem - 1, 1
    Text1.Text = Adodc1.Recordset.Fields(1) & ""

End Sub

Private Sub Form_Load()
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source = C:\wgbc.mdb;Persist Security Info=False"
    Adodc1.CursorLocation = adUseClient
    Adodc1.CommandType = adCmdText
    Adodc1.RecordSource = "select * from ip"
    Adodc1.Refresh
    Set DataList1.DataSource = Adodc1
    Set DataList1.RowSource = Adodc1
    DataList1.ListField = Adodc1.Recordset.Fields(1).Name
    

End Sub