keyの最終値を取得
ALPCm.CommandText = "SELECT MAX(key) FROM POINTALL " Try key = ALPCm.ExecuteScalar Catch ex As Exception key = 0 End Try
ALPCm.CommandText = "SELECT MAX(key) FROM POINTALL " Try key = ALPCm.ExecuteScalar Catch ex As Exception key = 0 End Try