大家好，这段代码为什么执行不成功！

[Zuomeng]

Option Explicit
Private conn1 As ADODB.Connection
Private rs1 As ADODB.Recordset
Private conn2 As ADODB.Connection
Private rs2 As ADODB.Recordset

Private Sub Command3_Click()
Dim dbfilename As String
Dim strsql As String
Dim ConnectString As String
Dim i As Integer
Set conn1 = New ADODB.Connection
ConnectString = "Provider=sqloledb;Data Source=yl001;Initial Catalog=" & "marry" & ";User Id=sa;Password=''"
conn1.Open ConnectString

Set conn2 = New ADODB.Connection

ConnectString = "Provider=sqloledb;Data Source=yl003;Initial Catalog=" & "marry" & ";User Id=sa;Password=''"
conn2.Open ConnectString

Set rs1 = New ADODB.Recordset
Set rs2 = New ADODB.Recordset

strsql = "select * from mz"
rs1.Open strsql, conn1, 1, 3
rs2.Open strsql, conn2, 1, 3


For i = 0 To rs1.RecordCount - 1
rs2.AddNew
rs2.Fields("mc") = rs1.Fields("mc")
rs2.Fields("memo") = rs1.Fields("memo")

rs2.Update
rs1.MoveNext
Next
End Sub

拜托了，哪里出问题了？？？

[victorycyz]

运行时光标停在哪里，有什么错误信息？

[fredlin]

应当是rs1.recordcount 出了问题
rs1.open前加一句： rs1.CursorLocation = adUseClient

或者

do while not rs1.eof
rs2.AddNew
rs2.Fields("mc") = rs1.Fields("mc")
rs2.Fields("memo") = rs1.Fields("memo")

rs2.Update
rs1.MoveNext
loop

[zhangguozhixp]

同意楼上的观点！

[helanshan]

strsql = "select * from mz"
rs1.Open strsql, conn1, 1, 3
rs2.Open strsql, conn2, 1, 3
可能以上出错：连接了两个数据库，怎么用一条sql 语句？？？？？