又是伸手党？

仅仅是将MSFlexGrid1数据存储到Access数据库中的某个数据表吗，那么数据表已经存在吗，这些不知道，怎么回答？
其实这个问题不是很难，你提供数据库名称、数据表名称，用不了一小时就搞定了。
没有点击【导入数据库】按钮时的界面      点击了【导入数据库】按钮时的界面

Dim SS As Integer

Private Sub Command1_Click()
Adodc1.RecordSource = "Select * From my_接种单"  '连接数据表
Adodc1.Refresh
    For I = 1 To SS          'SS是 MSFlexGrid1 控件的记录数
    Adodc1.Recordset.AddNew
    For J = 1 To 5
    Adodc1.Recordset.Fields(J) = MSFlexGrid1.TextMatrix(I, J - 1)
    Next J
    Adodc1.Recordset.Update
    Next I
Dim MM As Integer
Adodc1.RecordSource = "Select * From my_接种单"  '连接数据表
Adodc1.Refresh
MM = Adodc1.Recordset.RecordCount    '得到数据表的记录数
With MSFlexGrid2
.Cols = 5
.Rows = 1 + MM
.TextMatrix(0, 0) = "A"
.TextMatrix(0, 1) = "B"
.TextMatrix(0, 2) = "C"
.TextMatrix(0, 3) = "D"
.TextMatrix(0, 4) = "E"
For I = 1 To MM
For J = 1 To 5
.TextMatrix(I, J - 1) = Adodc1.Recordset.Fields(J)
Next J
Adodc1.Recordset.MoveNext
Next I
End With
MSFlexGrid2.Visible = True
Label1(1).Visible = True
End Sub

Private Sub Form_Load()
'这个仅仅给你提供一个例子，数据表的字段我乱设置的， MSFlexGrid1 控件中的数据也是胡乱设置的
SS = 5
With MSFlexGrid1
.Cols = 5
.Rows = 1 + SS
.TextMatrix(0, 0) = "A"
.TextMatrix(0, 1) = "B"
.TextMatrix(0, 2) = "C"
.TextMatrix(0, 3) = "D"
.TextMatrix(0, 4) = "E"
For I = 1 To SS
.TextMatrix(I, 0) = "A" & I
.TextMatrix(I, 1) = "B" & 2 * I
.TextMatrix(I, 2) = "C" & 3 * I
.TextMatrix(I, 3) = "D" & 4 * I
.TextMatrix(I, 4) = "E" & 5 * I
Next I
End With
MSFlexGrid2.Visible = False
Label1(1).Visible = False
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data.mdb;Persist Security Info=False"
End Sub

实际编辑时间约40分钟，特别简单。

[此贴子已经被作者于2016-5-23 22:48编辑过]

那你就给楼主搞定吧，我没有时间。拜托了！

数据库里有这个数据表，access数据库名称是：data，其中的数据表名称是:ym_接种单

[此贴子已经被作者于2016-5-22 20:28编辑过]

如何查询就如何添加，下面是SQL例句
insert into Table(Name,Age,Duty,Salary) values('王明',35,'外贸总监',12500)
如果你查询还不会，你还是先学习一下VB和数据库的基本东西

你这个用不了一小时的，怎么还不帮人家楼主搞定啊

楼主光提供数据库名和数据表名是不行的，还得提供一下数据表中的所有字段名才行。

附件发上来，你这个就是向access里面添加数据，应该不是很难的。

请老师们给予指导