Me.BindingContext(DataSet11, "TableName").Position = (Me.BindingContext(DataSet11, "TableName").Count - 1)
Dim YourString As String '= dataset key value
Dim testInt As Integer
testInt = Convert.ToInt32(YourString)
testInt += 1
new dataset key value = testInt.ToString
If IsNumeric(YourString) Then
End If