Public Function GeneraID(ByVal NomeTabella as String, ByVal NomeCampo as String, ByVal ValoreCampo as String) 
  Dim ds As DataSet=New DataSet()
  Dim dt As DataTable
  Dim NuovoID As DataRow

  _StrSQL="SELECT * FROM " & NomeTabella
  Query= New OleDbDataAdapter (_StrSQL, _StrConn)   Query.Fill (ds)
  dt=ds.Tables(NomeTabella)

  NuovoID=dt.NewRow()
  NuovoID(NomeCampo)=ValoreCampo
  dt.Rows.Add(NuovoID)

End Function