Visual Basic - Ayuda

Estoy trabajando en un proyecto, en el mismo tengo una base de datos con los datos del personal, una tabla se llama empleados y otra AltaEmpleados, mi pregutna es como paso Registros de la tabla empleados a la tabla AltaEmpleados.-

saluda Atte.-
Daniel

Asumiendo que ambas tablas tienen la misma estructura el codigo deberia quedar así:

Dim objCnn As New ADODB.Connection

Private Sub Command1_Click()
Dim strSql As String

objCnn.Open "Tu string de conexion"

' Con esta sintaxis en la Sql transfieres todos los registros de la tabla origen
' Se deberia utilizar la clausula where para transferir solamente los que cumplan
' cierta condicion
strSql = "INSERT INTO TABLA2 ( CODIGO, EQUIPO, DESCRIPCION, SECTOR ) " & _
"SELECT TABLA1.CODIGO, TABLA1.EQUIPO, TABLA1.DESCRIPCION, TABLA1.SECTOR " & _
"FROM TABLA1;"


objCnn.Execute strSql

End Sub