Dim dr As DataRow()
dr = Me.DATABASEDataSet.TABLE.Select(“”, “ID DESC”)
If dr.Length > 0 Then
Me.TextBox1.Text= dr(0)(“FIELD”) + 1
Else
Me.TextBox1.Text= 1
End If
Dim dr As DataRow()
dr = Me.DATABASEDataSet.TABLE.Select(“”, “ID DESC”)
If dr.Length > 0 Then
Me.TextBox1.Text= dr(0)(“FIELD”) + 1
Else
Me.TextBox1.Text= 1
End If