求助那位帮忙看看。。

运行时提示
实时错误‘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


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