Public Function nott(textt As String)
Dim rs As New ADODB.Recordset
Dim tt As String
Dim sqll As String
sqll = "select * From logg where [姓名] = '" & Forms!登录!Text0 & "'"
'tt = Forms!登录!Text0
'MsgBox (Trim(tt))
'MsgBox (mr(Forms!登录!Text0))
'rs.Open "select * From logg where [姓名] = mr() ", CurrentProject.Connection, , adLockOptimistic
MsgBox (sqll)
rs.Open sqll, CurrentProject.Connection, , adLockOptimistic
MsgBox (rs![姓名])
MsgBox (rs![ID])
rs![内容] = "2" & tt
rs.Update
rs.Close
Set rs = Nothing
End Function