> >Private Function fnAddtoDatabase() As Boolean > > Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0; DATA Source=c:\Inetpub\wwwroot\database\LuckyDog.mdb;" > Dim objConn As New System.Data.OleDb.OleDbConnection(strConn) > Dim objCmd As New System.Data.OleDb.OleDbCommand() > Dim strSQL As String > > strSQL = "Insert Into DataDictRegistration(FirstNameVC,LastNameVC,CityVC," _ > & "StateVC,CountryVC,EMailVC,CompanyNameVC,ReceiveUpdatesBT) " _ > & "VALUES('" & strFirstName & "'," _ > & "'" & strLastName & "'," _ > & "'" & strCity & "'," _ > & "'" & strState & "'," _ > & "'" & strCountry & "'," _ > & "'" & strEMail & "'," _ > & "'" & strCompany & "'," _ > & "'" & strInfo & "')" > > objCmd.CommandType = CommandType.Text > objCmd.CommandText = strSQL > objCmd.Connection = objConn > > objConn.Open() > > objCmd.ExecuteNonQuery() > > objConn.Close() > > fnAddtoDatabase = True > > End Function > >>
> >[OleDbException (0x80004005): Operation must use an updateable query.] > >>