Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ads As AccessDataSource
        ads = New AccessDataSource()
        ads.InsertCommand = "insert into ExpenditureCategory (CategoryName) values (?)"
        ads.InsertParameters.Add("CategoryName", Session("CategoryName"), TextBox1.Text)
    End Sub
拜托了,各位大哥!!!!