Dim cmd As New SqlCommand cmd.CommandType = CommandType.Text cmd.Connection = myconn cmd.CommandText = "select Max(token_no) from billentry" myconn.Open() Dim a As Integer = cmd.ExecuteScalar myconn.Close() TextBox1.Text = a + 1
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)