我只想使用DataGrid的可编辑功能，但是不想使用数据绑定，可是无论怎么设置，都不能编辑，真是急死人了！

Question

估计你打开 Recordset 的参数不对，不能以只读方式打开（没有指定以何种方式打开，默认是只读），下面的例子经过测试，把连接字符串修改成你的就可以：FORM1.FRMOption ExplicitDim oConn As ADODB.Connection
Dim rs As ADODB.RecordsetPrivate Sub Command1_Click()
    rs.Open "SELECT * FROM authors", , adOpenKeyset, adLockOptimistic
    Set Me.DataGrid1.DataSource = rs
End SubPrivate Sub Form_Load()
    Set oConn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    oConn.Open "Provider=SQLOLEDB;Data Source=WEBSVR;Initial Catalog=pubs;User ID=sa;Password=MSSQLSERVER"
    Set rs.ActiveConnection = oConn
End Sub

Answer 1

检查你所用的grid所对应的数据集是否只读的，如果你用的是一个查询，那么对不起，不能编辑，若想这样，则可以在上面加控件来实现

Answer 2

《巧用VB6的DataGrid实现通用电子表格》
http://www.computerworld.com.cn/99/tips/9908/080502_11.asp
巧用VB6的DataGrid实现通用电子表格 
北京 于溪玥 
---- 在Microsoft Developer Network Library Visual Studio 6.0（MSDN）或者VB5.0的《联 机手册》中都提供了一个《在（Hierarchical）FlexGrid 电子表格中编辑单元》的解决方 案，实现了在（Hierarchical）FlexGrid电子表格中编辑单元，另外也有一些关于实现类 电 子表格的文章与该方案大同小异，都是用TextBox与Grid 一类的控件配合来实现的，因 为Grid 之类的控件本身是不可以编辑单元的，然而众所周知DataGrid本身就是可以编 辑单元，它的一般用法是在程序设计或运行时设置一个数据源（DataSource），这个数据 源可以是Recordset或者是数据控件（如：ADODC等），在通常情况下该数据源是一个 数据库（DataBase）的基本表（Table）、视图（View）或者查询（Query）等。其实，DataGrid 的数据源的本质就是一个二维表，该数据源可以是一个无数据库实体的二维表（记录集 Recordset），这样就可以用DataGrid实现通用电子表格编辑单元。思路很简单，就是在 程序运行时，创建一任意Recordset作为DataGrid的DataSource。当然，该记录集仅仅 就是一个二维表，并无数据库实体。 ---- 一些实现的技术细节代码如下： ---- ? 创建任意无数据库实体的记录集，并将其设为DataGrid的数据源。 Dim adoRecordset As ADODB.Recordset
Set adoRecordset = New ADODB.Recordset
Dim i As Integer
For i = 0 To 2  '为Recordset三个字段,即为 DataGrid 添加三列
   adoRecordset.Fields.Append "第" & i & "列", adVariant, , 
   adFldMayBeNull + adFldIsNullable + adFldUpdatable
Next i
adoRecordset.Open
For i = 0 To 3
   adoRecordset.AddNew '加四条记录,即为 DataGrid 添加四空行
Next i
Set DataGrid1.DataSource = adoRecordset '绑定 DataGrid 的数据源
adoRecordset.MoveFirst
  '编到这里就已经实现了编辑单元格。---- ? 准确读取单元格内容，是电子表格最重要的方面。 ---- 方法一：直接使用记录集。 ---- 创建如下函数返回某单元格内容： Private Function vMyCell_1
(adoRecordsetX As ADODB.Recordset, 
iColX As Integer, iRowX As Integer) As Variant
If iColX < = adoRecordsetX.Fields.Count
 - 1 And iRowX < = 
  adoRecordsetX.RecordCount - 1 Then
  adoRecordsetX.Move iRowX, adBookFirst
  If IsNull(adoRecordsetX.Fields(iColX).Value) Then
    vMyCell_1 = "Null"
  Else
    vMyCell_1 = adoRecordsetX.Fields(iColX).Value
  End If
Else
  vMyCell_1 = "下标越界"
End If
End Function---- 方法二：使用记录集数组。 ---- 创建如下函数返回某单元格内容： Private Function vMyCell_2
(adoRecordsetX As ADODB.Recordset, 
iColX As Integer, iRowX As Integer) As Variant
Dim V As Variant
'将 Recordset 对象的多个记录恢复到数组中
V = adoRecordsetX.GetRows(adoRecordsetX.RecordCount, 
adBookFirst)
If iColX < = UBound(V, 1) 
And iRowX < = UBound(V, 2) Then
  If IsNull(V(iColX, iRowX)) Then
    vMyCell_2 = "Null"
  Else
    vMyCell_2 = V(iColX, iRowX)
  End If
Else
  vMyCell_2 = "下标越界"
End If
End Function

---- 方法三：使用DataGrid.Text属性返回。 ---- 创建如下函数返回某单元格内容： Private Function vMyCell_3
(DataGridX As DataGrid, adoRecordsetX As 
ADODB.Recordset, iColX As Integer,
 iRowX As Integer) As Variant
If iColX < = DataGridX.Columns.Count
 - 1 And iRowX < = 
  adoRecordsetX.RecordCount - 1 Then
  DataGridX.Col = iColX
  DataGridX.Row = iRowX
  vMyCell_3 = DataGridX.Text
Else
  vMyCell_3 = "下标越界"
End If
End Function---- 该方案在PWin 9.X 和VB 6.0下通过。轻而易举就实现了编辑电子表格单元，其关键就在于创建了一个无数据库实 体的记录集来作为DataGrid的数据源，这就说明了Recordset 对象的范畴还是比较广的，其用途也决不仅仅局限于对数据库的操作，利用该思路我们还可以使摆脱在硬盘上建立 临时库和表之苦成为可能等等。