Bueno tal parece que he dado con la forma de hacer lo qeu he solicitado ahora quiero que alguno lo analice y me diga si está bien o está mal, a mi me funciona.
Cita: Dim consecutivo As Integer = 10000
consecutivo = consecutivo + 1
Dim insertar As New MySqlDataAdapter("INSERT INTO pruebas(id_prueba,nombre) VALUES ('SELECT(Max(id_prueba)+1)','" & Nombre.Text & "')", conexion)
el id_prueba lo inicie en 10000 y lo aumento en uno, esto cuando la tabla esta vacia obviamente que ya despues no sirve de nada.
otra cosa cuando cree la tabla indique que el campo id_pruebas fuera auto_increment ¿lo dejo así o lo quito?