Dim sql As String

Dim i As Integer

Dim j As Integer
Call opensjk

sql = "select * from yhda "

rs.Open sql, sjk, 1, 1

MSFlexGrid1.Rows = rs.RecordCount + 1

MSFlexGrid1.Cols = rs.Fields.Count+1

For i = 1 To rs.RecordCount + 1

MSFlexGrid1.Rows = i+1

For j = 0 To rs.Fields.Count+1

MSFlexGrid1.Text = rs.Fields(j).Value

Next j

提示MSFlexGrid1.Rows = rs.RecordCount + 1对像不可操作

LS说的对.yuxin1382编程习惯不好.