Public Function savebook() As ADODB.Recordset
    Dim cn As Connection
    Dim rs As Recordset
    Dim state As String
    Set cn = New Connection
    cn.Open Trim$(dbstringer)
    Set rs = New Recordset

 rs.Open "insert into userdiary (user,state,tel,callto) values ('" & useroperate & "' , '" & state & "','" & text7.Text & "','" & Text1.Text & "')", cn, adOpenKeyset, adLockOptimistic

    Set cn = Nothing
    Set rs = Nothing
End Function


说我text7 变量未定义 怎么回事？帮帮我

很显然，你的代码所在窗体中并没有名称为text7的控件

如果字段tel为数值型，要用val(Text7.Text)