希望给补充一下VB程序

Private Sub XpButton1_Click()
Dim Total As Single, c(1 To 2) As Single, bb As String
Set Db = OpenDatabase("E:\db1.mdb")
Set Re = Db.OpenRecordset("lt")
Set Bt = Db.OpenRecordset("ch")

Re.MoveFirst
Do While Not Re.EOF

If Re.Fields(2) < a(1) Then
c(1) = 0
Else
c(1) = 1
End If

If Re.Fields(3) < a(2) Then
c(2) = 0
Else
c(2) = 1
End If

Total = c(1) * c(2)
If Total = 1 Then
bb = Re.Fields(0)

（想在此处加一段程序，我用的数据库是ACCESS 2003，vb与access连接用的是data控件，如何实现把表Re中筛选出来的数据写入到表Bt中，两个表的字段是相同的，表Re是源数据表，表Bt是空表，上面的部分程序已经选出需要的数据，求这段两个表间操作的数据）

Text1.

请VB高手给看一下这个程序是怎么回事 vb高手给我看一下这段程序 关于对ADSL的见解,希望大家给我补充一下. 请教关于VB程序中用到的延时问题，希望高手给于解答！ VB程序如何隐藏标题栏，请仔细看补充说明 用VB， 设计一个程序，题目在补充里面 vb程序,给全积分 如何给vb程序打包？ 怎样用vb程序给程序加密！！！ 请先看一下问题补充，这是不是遗精，有没有事，希望知道的朋友好好给我说说。谢谢了。