'保存
    Private Sub MenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem9.Click
        Dim s As String, name As String
        If txttitle.Text = "" Then
            MsgBox("请输入日记标题", MsgBoxStyle.Exclamation Or MsgBoxStyle.OKOnly, "标题")
        Else
            name = txttitle.Text & ".txt"
            s = Application.StartupPath() + "\" & txttitle.Text & ".txt"
            RichTextBox1.SaveFile(s, RichTextBoxStreamType.PlainText)
            MsgBox("保存成功", MsgBoxStyle.OKOnly, "保存文件")
            Dim connstr, insertcmd As String
            Dim selectComd As String = "select * from riji"
            c
            insertcmd = "insert into riji(title) values (" & (txttitle.Text) & ")"
            Dim conn As OleDbConnection, myadapter As OleDbDataAdapter
            Dim mydataset As New DataSet
            Dim cmd As OleDbCommand
            conn = New OleDbConnection(connstr)
            conn.Open()
            cmd = New OleDbCommand(insertcmd, conn)
            cmd.ExecuteNonQuery()
            conn.Close()
            ListBox1.DataSource = mydataset.Tables("riji")
            Me.ListBox1.DisplayMember = "title"
            
        End If
    End Sub

cmd.ExecuteNonQuery() 出错了。不知道怎么改，谢谢大家

insertcmd = "insert into riji(title) values ('" & (txttitle.Text) & "')"

权限问题吧，，，网站有没加匿名访问人的写的权限呢······

应该是insertcmd = "insert into riji(title) values ('" & txttitle.Text & "')"

谢谢大家帮我解决问题。插入没有问题了。

有一个问题出现了：

我的 数据库 只有title 这一个字段，我希望listbox控件显示这个字段的里面的内容。现在可以往数据库里面添加了，但是lbltitle.Text = ListBox1.SelectedItem 出错，说datarowview 不能强制转换类型为string. 应该怎么才能点击listbox
选中的，并把内容给lbltitle.Text 。