在线等待！！急！

Question

各位高手请看以下代码？
Private Sub Form_Load()
Dim pathstr As String
On Error Resume Next
pathstr = "Provider=SQLOLEDB.1;Password=zhrmghg;Persist Security Info=True;User ID=sa;Initial Catalog=gtzyxt;"
Adodc1.ConnectionString = pathstr
Adodc1.RecordSource = "select * from 表"
Adodc1.Refresh
For i = 0 To 3
Set Text1(i).DataSource = Adodc1
Next
Text1(0).DataField = "xm"
Text1(1).DataField = "sfzh"
Text1(2).DataField = "fcxz"
Text1(3).DataField = "txdz1"
End Sub
（1）当表中没有记录时，在文本框text1(0)中录入，点击其它文本框中时，text1(0).text清空了，（2）当表中有记录时，不存在这种问题。请问各位怎样解决（1）问题。

Answer 1

用adodc本来就不好用,我个人至少是这么认为的.
像这种问题你不如插入一条空记录得了

Answer 2

'不绑定就行了.'不绑定就行了.Private Sub Form_Load()
Dim pathstr As String
On Error Resume Next
pathstr = "Provider=SQLOLEDB.1;Password=zhrmghg;Persist Security Info=True;User ID=sa;Initial Catalog=gtzyxt;"
Adodc1.ConnectionString = pathstr
Adodc1.RecordSource = "select * from 表"
Adodc1.Refresh
Text1(0) = Adodc1.Recordset("xm")
Text1(1) = Adodc1.Recordset("sfzh")
Text1(2) = Adodc1.Recordset("fcxz")
Text1(3) = Adodc1.Recordset("txdz1")
End Sub