Visual Basic - alguna idea por favor, no debe ser dificil

por favor alguna ayuda, necesito terminar un trabajo practico, gracias saludos...

QUE IDEA QUERES

Hola aclaro que soy nuevo en esto, tengo un problema para copiar registros.

uso vb6 y acces.

lo que quiero hacer es copiar un registro que cumpla con un criterio de una tabla a otra tabla, mi codigo es el siguiente:

ACLARO LAS DOS TABLAS TIENEN LA MISMA ESTRUCTURA.

TENGO UN TEXT CONECTADO A UN CAMPO DE (TABLA1) QUE ME MUESTRA QUE CANTIDAD TENGO EN STOCK, QUIERO HACER QUE SI EL STOCK ES (CERO), ME SALTE UN MENSAJE DICIENDOME SI QUIERO AGREGAR ESTE REGISTRO A (TABLA2), SI LO DOY (YES) QUE ME AGREGUE DICHO REGISTRO EN (TABLA2).

CODIGO:

If Text5.Text = "0" Then
MsgBox "Para: '" & Text11 & "'" & " No hay stock", vbExclamation, "¡EN ESTE MOMENTO NO HAY STOCK!"

m = MsgBox("desea agregar", vbYesNo, "agregar")

If m = vbYes Then

SQL = "Insert Into TABLA2 SELECT * FROM TABLA1 where campo like '*" & 0 & "*'"

End If
End If

bueno agradezco cualquier idea o ayuda gracias saludos.....

perdon el problema es que no me inserta los registros, gracias...

proba asi

SQL = "Insert Into TABLA2 SELECT * FROM TABLA1 where campo = 0

el like esta demas ya que te va a buscar cero en todo el registro. ponle, si tienes 1000, te va a insertar ese campo por que tiene 0 dentro de sus digitos

ya ese codigo lo pones en el execute de un connection y listo. ya te debe funcionar. ahora si no funciona, fijate si tabla1 tiene registros