求平均后放入TEXT51中，提示是红色的地方错误，是怎么的呢
Private Sub Command2_Click()
  Adodc2.RecordSource = "select 电流, avg from db_1 "
Adodc2.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\db1.mdb;persist security info =false"""
Adodc2.Refresh
Text51 = Adodc2.Recordset(1)
End Sub