我调试了N久，就是发现不了问题，希望那位仁兄指点下迷津

Private Sub Form_Load()
Data1.DatabaseName = (App.Path + "\mydb.mdb")
Data1.RecordSource = "student"
End Sub

Private Sub Data1_Reposition()
a = Data1.Recordset.Fields("性别")
If a = -1 Then
Text3.Text = "男"
Else: Text3.Text = "女"
End If

End Sub --------------------编程问答-------------------- --------------------编程问答-------------------- 你害我白高兴了一场```看来还得自己先去找找先` --------------------编程问答-------------------- 我的天哪，居然连问题都不说  你牛

具我分析呢
问题可能有会以下几个：
1、mydb.mdb 路径不对 
2、student.性别 数据不对（空值、类型不匹配。。。。）

补充：VB ,  网络编程