运行时提示
实时错误‘91’
对象变量或with快变量为设置


Dim mybookmark As Variant  
Dim mcclean As Boolean
Dim rsd1 As ADODB.Recordset
Dim rsd11 As ADODB.Recordset

Public Sub viewdata()
txtid.Text = Trim(rsd1.Fields(0))  错误处
txtname.Text = Trim(rsd1.Fields(1))
txtbirthdate.Text = Trim(rsd1.Fields(2))
txtrxdate.Text = Trim(rsd1.Fields(3))
txtaddress = Trim(rsd1.Fields(4))
txtprofession = Trim(rsd1.Fields(5))
combosex = Trim(rsd1.Fields(6))
comboclassno = Trim(rsd1.Fields(7))

End Sub


应该设置在那里啊 是不是变量设置的位置不对。。初学望多包涵

txtid.Text = Trim(vstr(rsd1.Fields(0)))试试

加了提示  编译错误
          子程序或函数为定义

Public Sub viewdata()
txtid.Text = Trim（vstr(rsd1.Fields(0))）
txtname.Text = Trim(rsd1.Fields(1))
txtbirthdate.Text = Trim(rsd1.Fields(2))
txtrxdate.Text = Trim(rsd1.Fields(3))
txtaddress = Trim(rsd1.Fields(4))
txtprofession = Trim(rsd1.Fields(5))
combosex = Trim(rsd1.Fields(6))
comboclassno = Trim(rsd1.Fields(7))

End Sub

cstr不是vstr打错了

实时错误‘91’
对象变量或with快变量为设置

txtid.Text = Trim（cstr(rsd1.Fields(0))）
还是提示这个错误

rsd1打开了吗？

Shishi:
txtid.Text = Trim(vstr(rsd1.Fields(0)))&""