With Adodc_clark
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\WORK\xinhe.mdb;Persist Security Info=True"
        
 .CommandType = adCmdText
 .CursorLocation = adUseClient
 .CursorType = adOpenKeyset
 .RecordSource = "select gender,birth,nationality,jiguan,position,mp,e-mail from member_info where name = '" & DBCombo_clark.Text & "'" .Refresh
End With