Dim con As New ADODB.Connection
strCon = "rovider=SQLOLEDB;Data Source=FYJX;Initial Catalog=DATABASENAME;User ID=USENAMEassword=PSW;"
con.Open strCon
Dim rsd As New ADODB.Recordset
strSQL = "select * from TblSort"
rsd.Open strSQL, strCon, adOpenKeyset, adLockOptimistic
Set Me.Recordset = rsd
Me.ab.ControlSource = rsd.Fields(1)作者: fan0217 时间: 2006-4-23 02:30
Me.Recordset应该是属于DAO的Recordset,你采用的ADO的Recordset,当然不行了.