VB 列表框和数据库问题

首先在窗体建立两个adodc控件，一个连接到数据库1，一个连接到数据库2，建立移动记录的过程{adodc1和adodc2先各自要绑定到一个控件，否则就会出现运行错误}
list1的style属性值设为1-checked
Public Sub ss(n)
Dim i
If Adodc1.Recordset.RecordCount = 0 Then
Exit Sub
End If
Adodc1.Recordset.MoveFirst
If n = 1 Then
Else
For i = 1 To n - 1
Adodc1.Recordset.MoveNext
Next i
或者
adodc1.recordset.move n-1
End If
End Sub
privAte Sub form_load()'把数据库1中的中的信息全都显示在列表框中
for i= 1 to adodc1.recordset.recordcount
ss i:list1.additem adodc1.recordset("姓名")
next i
end sub
private sub cmdtjjb_click 把列表框中选定的项目添加到列表框2中并把数据库表2进行更新
dim i,j:i=1
while i<=list1.listcount
if list1.selected(i-1)=true thwn
list2.additem list1.list(i-1)
ss i
adodc2.recordset.addnew
adodc2.recordset("姓名" )=adodc1.recordset("姓名")
adodc2.recordset("性别" )=adodc1.recordset("性别")
adodc2.recordset("出生日前" )=adodc1.recordset("出生日期")
………
adodc2.recordset.update
end if
i=i+1
wend
end sub
由于本人初学vb中的数据库编程，此代码仅供参考