请各位高手帮帮忙啊！

[albert521]

我想做一个对数据集的索引，并求其列的字符的平均数，可是运行不了啊，各位高手，帮帮忙啊！ 谢谢呀
Dim WithEvents adoPrimaryRS As recordset
Private Sub Form_Load()
Dim cn As ADODB.Connection
Dim f As ADODB.Field
Dim n As Integer
n = 0
Set cn = New Connection
cn.CursorLocation = adUseClient
cn.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=D:\VB98\ALB.mdb;"
Set f = adoPrimaryRS.Fields(0)
Set adoPrimaryRS = New recordset
adoPrimaryRS.Open "select avg(len(f)) from ¹¤×ʱí", db, adOpenStatic, adLockOptimistic

Set DataGrid1.DataSource = adoPrimaryRS
DataGrid1.ReBind
End Sub

我是菜鸟，初学者。帮帮忙呀，很急，谢谢！

[myhot-河马吃草]

adoPrimaryRS.Open "select avg(" & len(f.fields(0)) & ") from ¹¤×ʱí", db, adOpenStatic, adLockOptimistic