DataReader Puglisi

Private Sub ArticoliBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ArticoliBindingNavigatorSaveItem.Click

'*********************************************************

' NEL SALVATAGGIO PRIMA DEL VALIDATE, FORMO IL NUOVO id

' UTILIZZANDO IL DATAREADER ED IL cOMMAND

'*********************************************************

If IDTextBox.Text = "" Then
Dim Cn As New OleDb.OleDbConnection
Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\ArchivioOrsetto.mdb"
Cn.Open()

Dim sql = "SELECT DISTINCTROW Max(Articoli.ID)+1 AS ID FROM Articoli;"
Dim cmd As New OleDbCommand(sql, Cn)
Dim DataR As OleDbDataReader = cmd.ExecuteReader

While DataR.Read
IDTextBox.Text = (DataR("id"))
Exit While
End While

DataR.Close()
Cn.Close()
End If
'*********************************************************




Me.Validate()
Me.ArticoliBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.ArchivioOrsettoDataSet)

End Sub