codice:
 
Dim sqlrisp As String

Dim objConnrisp = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\inetpub\wwwroot\DataS\ForumS.mdb") 

 sqlrisp="INSERT INTO post (idthread, idautore, data_post, titolo_post, post) VALUES ('" & idthread & "', '" & session("id") & "', '01/01/2001', '" & newposttitle.text & "', '" & newpostbody.text & "')"
 Dim objCommandrisp as New OleDbCommand(sqlrisp , objconnrisp) 

objConnrisp.open

objCommandRisp.ExecuteNonQuery()

Dim MyReader as OleDbDataReader

Dim UltimoID as integer

MyReader = MyCommand.ExecuteReader

While MyReader.Read

UltimoID = MyReader.GetInt32(indice-della-colonna-ID)

End While

objConnrisp.close
qualcuno ha un metodo più semplice per spostarsi sull'ultimo record?

:tongue: