Dim cn As New ADODB.Connection
            If Text1 = "" Then
                MsgBox "姓名不能为空", 4, "农机档案管理平台"
                Text1.SetFocus
                Exit Sub
            End If
            If Combo1.Text = "" Then
                MsgBox "档案类型不能为空", 4, "农机档案管理平台"
                Combo1.SetFocus
                Exit Sub
            End If
             If Text4 = "" Then
                MsgBox "档案类型不能为空", 4, "车辆管理系统"
                Text4.SetFocus
                Exit Sub
            End If
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb"
cn.Close
MsgBox "保存完毕！"
Set MSHFlexGrid1.DataSource = rs
msflexgrid1.Refresh
可以保存~但是最后要要求对象~就是这两句不对Set MSHFlexGrid1.DataSource = rs
                             msflexgrid1.Refresh

最好能申明数据从复