求助,从excel导入数据时显示进度条

[luck_zy08]

在下面这段代码中该如何加入进度条,我不要假的那种,我要能够真正的计算出导入所需时间的那种
Private Sub Command1_Click() '导入excel
Me.Labbegin.Caption = "数据正在加载中,请稍等"
Display '调用显示全局
With Md1 '清除网络还有记录以便下次导入
For i = 1 To Me.Md1.Rows - 1 '对I进行赋值
.TextMatrix(i, 1) = ""
.TextMatrix(i, 2) = ""
.TextMatrix(i, 3) = ""
.TextMatrix(i, 4) = ""
.TextMatrix(i, 5) = ""
.TextMatrix(i, 6) = ""
.TextMatrix(i, 7) = ""
.TextMatrix(i, 8) = ""
.TextMatrix(i, 9) = ""
.TextMatrix(i, 10) = ""
.TextMatrix(i, 11) = ""
.TextMatrix(i, 12) = ""
.TextMatrix(i, 13) = ""
.TextMatrix(i, 14) = ""
.TextMatrix(i, 15) = ""
.TextMatrix(i, 16) = ""
.TextMatrix(i, 17) = ""
.TextMatrix(i, 18) = ""
Next i
End With
'判断记录是否符合标准
If Me.Combo1.Text = "" Then
MsgBox "请选择您要导入的Excel工作表!", vbInformation, "系统提示"
Exit Sub
End If
'打开excel并导入
cnt.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=false;Data Source=" & Me.Text1.Text & ";Extended Properties='Excel 8.0;HDR=Yes'"
cnt.Open
rst.Open "select * from [" & Me.Combo1.Text & "$]", cnt, adOpenKeyset, adLockOptimistic
If Not rst.BOF Then rst.MoveFirst
GETDATA '调用全局 赋值
cnt.Close '关闭打开的excel
Me.Picdata.Visible = False
End Sub

[luck_zy08]

在线等,高手帮个忙

[chinaboyzyq]

进度条.max=rst.RecordCount
每导入一条，进度条.value=进度条.value+1

[孤独剑_LPZ]

lz的方法不是一条一条insert进数据库的,是批量入库的,无法精确的控制进度,想真实的显示进度,就用insert一条一条入库吧.进度控制方法同上
进度条.max=rst.RecordCount
每导入一条，进度条.value=进度条.value+1

[luck_zy08]

看来有难度，不过还是要谢谢各位，一样散分