TMD，烦，在线等高手。关于是datagrid添加数据问题

Question

我把dataGrid和ADODB给绑定了。要做个“增加”按钮，按了，GRID最后面会空多一行给我添加数据，搞了老半天都搞不成。不知怎样搞
绑定
Private Sub Form_Load()
Dim rs As New ADODB.Recordset
Dim strSQL As String
strSQL = "select * from tempform"
rs.Open strSQL, g_ConnServer.ServerConnect, adOpenStatic, adLockPessimistic
Set DataGrid1.DataSource = rs
End Sub
用这样的办不行....rs.addnew 
.....
....
Set DataGrid1.DataSource = rs

Answer 1

用
Addnew以后，还要用Update才行的!

Answer 2

'Microsoft ActiveX Data Objects 2.x LibraryOption Explicit
    Public mCnnString As String
    Public mRst As New ADODB.RecordsetPrivate Sub Command1_Click() '保存按钮
    mRst.UpdateBatch
End SubPrivate Sub Command2_Click() '添加按钮
    mRst.AddNew
End SubPrivate Sub Form_Load()
    mCnnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb" & ";Persist Security Info=False"
    If mRst.State = adStateOpen Then mRst.Close
    mRst.CursorLocation = adUseClient
    mRst.Open "Select * From Table", mCnnString, adOpenStatic, adLockBatchOptimistic, adCmdText
    Set DataGrid1.DataSource = mRst
    DataGrid1.Refresh
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    mRst.Close
    Set mRst = Nothing
End Sub

Answer 3

to :zhuiguo
addnew之后，怎样取得GRID里的值呢？而且。如果要空一行的话，
rs.addnew
rs.update
set grid1.datasource=rs
这不是向数据库中加了一条空白数据了吗？to : RUKYO
按了Command2_Click() '添加按钮
grid不会自动空一个空白行出来添加数据

Answer 4

不会吧？你把我的代码拷贝到一个新建的工程里试试看，就在窗体里放一个DataGrid、两个CommandButton

Answer 5

to rukyo
不好意思。会空出一行。
但会出现这问题
比如原来有7行数据。空出一行的时候。
前面的数据都看不到了。或者只看到一两行。什么回事?
没有滚动条

Answer 6

Private Sub Command3_Click() '刷新按钮
    If mRst.State = adStateOpen Then mRst.Close
    mRst.CursorLocation = adUseClient
    mRst.Open "Select * From Table", mCnnString, adOpenStatic, adLockBatchOptimistic, adCmdText
    Set DataGrid1.DataSource = mRst
    DataGrid1.Refresh
End Sub

Answer 7

8用DATAGRID了！改用第三方控件吧！微软给的表格控件不方便！别扭！