Private Sub Form_Load()
Dim SelectStr As String
SelectStr = "select * from abc "
Set ServerList = New ADODB.Recordset
ServerList.Open SelectStr, cnn, adOpenStatic, adLockOptimistic
Set ServerSetAdoC.Recordset = ServerList
Set ServerSet.DataSource = ServerList
ServerSet.Columns(1).Value = ipstr'这一行报错
'ipstr是一个变量它保存的是一个IP地址
ServerSet.Columns(1).Locked = True