g_strSql = "select Number,Gender,BirthDate,Nation,Native,Education,Feature,JoinDate,ID,Phone,GenGroup," _
& " BraGroup,Address,School from StdInfo where Name='" & detail & "'"
'g_strSql = f_strSQL
Set g_rs = g_db.OpenRecordset(g_strSql)
'If Not g_rs.EOF Then

txtNum(0).Text = g_rs!Number
txtGender.Text = g_rs!Gender
txtBirth.Text = g_rs!BirthDate
txtNation.Text = g_rs!Nation
txtNative.Text = g_rs!Native
txtEducation.Text = g_rs!Education
txtFeature.Text = g_rs!Feature
txtJoin.Text = g_rs!JoinDate
txtID.Text = g_rs!ID
txtPhone.Text = g_rs!Phone
txtGenGroup.Text = g_rs!GenGroup
txtBraGroup.Text = g_rs!BraGroup
txtAddress.Text = g_rs!Address
txtSchool.Text = g_rs!School

Set g_db = g_ws.OpenDatabase(App.Path + "\GROUP1.MDB")

箭头指向Set g_rs = g_db.OpenRecordset(g_strSql) 类型不匹配


sql应该没有写错～！
谢谢