> Public Function SaveTIPChanges() As Boolean > Dim oConn As New OleDbConnection(ConfigurationManager.ConnectionStrings("TIPWebEdits").ConnectionString) > > Dim SQL As String = "INSERT INTO tip (" > SQL += "tip_id," > SQL += "st_name," > SQL += "termini," > SQL += "project," > SQL += "rtp_id," > SQL += "sponsor_id," > SQL += "state_id," > SQL += "fed_id," > SQL += "why," > SQL += "length," > SQL += "existlanes," > SQL += "newlanes," > SQL += "newwalks," > SQL += "newbikelanes," > SQL += "total_cost," > SQL += "contact," > SQL += "phone," > SQL += "func_class," > SQL += "System," > SQL += "subsystem," > 'SQL += "memo," > SQL += "s_scoping," > 'SQL += "s_proceed," > 'SQL += "s_envclr," > 'SQL += "s_stage1," > 'SQL += "s_utility," > 'SQL += "s_railroad," > 'SQL += "s_rwplans," > 'SQL += "rw_clr," > 'SQL += "s_planfile," > 'SQL += "s_sale," > SQL += "EditBy)" > > SQL += " values " > > SQL += "(" > SQL += TIPID_TextBox.Text.Trim + "," > SQL += "[" + st_name_TextBox.Text.Trim + "]," > SQL += "[" + Termini_TextBox.Text.Trim + "]," > SQL += "[" + Project_TextBox.Text.Trim + "]," > SQL += rtp_id_TextBox.Text.Trim + "," > SQL += "[" + sponsor_id_TextBox.Text.Trim + "]," > SQL += "[" + state_id_TextBox.Text.Trim + "]," > SQL += "[" + fed_id_TextBox.Text.Trim + "]," > SQL += "[" + why_TextBox.Text.Trim + "]," > SQL += Length_TextBox.Text.Trim + "," > SQL += ExistLanes_TextBox.Text.Trim + "," > SQL += NewLanes_TextBox.Text.Trim + "," > SQL += IIf(Sidewalk_CheckBox.Checked = True, ".T.", ".F.") + "," > SQL += IIf(BikeLane_CheckBox.Checked = True, ".T.", ".F.") + "," > SQL += Total_cost_TextBox.Text.Trim + "," > SQL += "[" + Contact_TextBox.Text.Trim + "]," > SQL += "[" + Phone_TextBox.Text.Trim + "]," > SQL += "[" + FuncClass_DropDownList.SelectedValue.Trim + "]," > SQL += "[" + System_DropDownList.SelectedValue.Trim + "]," > SQL += "[" + Subsystem_DropDownList.SelectedValue.Trim + "]," > 'SQL += "[" + Server.UrlEncode(Memo_TextBox.Text.Trim) + "]," > SQL += s_Scoping_TextBox.Text.Trim + "," > 'SQL += s_proceed_textbox.Text.Trim + "," > 'SQL += s_envclr_TextBox.Text.Trim + "," > 'SQL += s_stage1_TextBox.Text.Trim + "," > 'SQL += s_utility_TextBox.Text.Trim + "," > 'SQL += s_railroad_TextBox.Text.Trim + "," > 'SQL += s_rwplans_TextBox.Text.Trim + "," > 'SQL += s_rwclr_TextBox.Text.Trim + "," > 'SQL += s_planfile_TextBox.Text.Trim + "," > 'SQL += s_sale_TextBox.Text.Trim + "," > SQL += "[" + Membership.GetUser.UserName + "])" > Response.Write(SQL) > > Dim oCommand As New OleDbCommand("ExecuteSQL", oConn) > oCommand.CommandType = CommandType.StoredProcedure > Dim param = oCommand.Parameters.Add("@SQL", OleDbType.WChar) > param.Value = SQL > > oConn.Open() > oCommand.ExecuteNonQuery() > oConn.Close() > Return True > > > End Function >>I'm also trying to figure out the syntax for the dates as you can see. The problem is with the MEMO field named memo :) (its an old database).