Buongiorno a tutti
non riesco ad aggiornare il db dopo aver aggiunto una riga al dataset posto sotto il codice e poi mi spiego meglio

Dim sql As String = "Select * From Messaggi"
Dim adp As New OleDbDataAdapter(sql, Connessione)
Dim ds As New DataSet
Try
adp.Fill(ds, "Messaggi")
Catch ex As Exception
MsgBox(ex.Message)
End Try
adp.Fill(ds, "Messaggi")


Dim NumeroRighe As Integer
NumeroRighe = ds.Tables("Messaggi").Rows.Count


If NumeroRighe = 0 Then
Dim r As DataRow = ds.Tables("Messaggi").NewRow
r("IdMessaggio") = "PROVA"
ds.Tables("Messaggi").Rows.Add(r)
adp.Update(ds, "Messaggi")

End If

Io faccio la query sql se non me restituisce nulla vorrei inserire una riga ("r") nel dataset e nel db premetto che nella tabella messaggi l'unico campo prensente è IDMESSAGGI però quando eseguo adp.update mi da errore e mi dice che manca il metoto Insert...legendo in giro ho capito che si deve costruire la query per fare questo inserimento però non so in che modo mi aiutate?????

Grazie mille a tutti per la pazienza e la professionalita che dimostrate ogni volta