Adicionar un Registro

Hola Experto
¿Cómo estas?, soy María Fernanda y quisiera saber si me puedes colaborar con la siguiente duda:
Tengo que crear el código para el command Adiccionar utilizando el objeto adodc.
En la interfaz gráfica tengo un text1 para código, un text2 para tipo, un text3 para operrario..., necesito que los datos que se digiten en estos text queden grabados en la base de datos.
El código para buscar un registro es el siguiente:
Private Sub Command3_Click()
Dim buscar As String, criterio As String
buscar = InputBox("Que Codigo quiere buscar?")
If buscar = "" Then Exit Sub
criterio = "Codigo like '*" & buscar & "*'"
'Buscar desde el siguiente registro a la posicion inicial
Adodc1.Recordset.MoveNext
If Not Adodc1.Recordset.EOF Then
Adodc1.Recordset.Find criterio
End If
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveFirst
'Buscar desde el principio
Adodc1.Recordset.Find criterio
End If
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
MsgBox ("No se encuentra el codigo")
End If
End Sub
Espero que este código te sirva para entender lo que necesito.
Te agradezco de antemano tu colaboración.