Dim cm As New SqlCommand("DBCC CHECKIDENT('pic', RESEED, 0)", con) If con.State = ConnectionState.Closed Then con.Open() End If cm.ExecuteNonQuery()