Como vas yo no lo hago con el control ADO sino utilizando recordset, te dejo el codigo para que lo adaptes y tengas una idea de como va el asunto.
Código:
Private Sub dtcEmpleado_Click(Area As Integer)
'Si el recordset esta vacio
With rsEmpleado
If .EOF And .BOF Then
'MsgBox "No hay empleados registrados actualmente", vbInformation, "Información"
dtcEmpleado.Enabled = False
Else
'Coloca el Codclie en la caja de texto al selecionar un cliente del datacombo1
dtcEmpleado.Enabled = True
.MoveFirst
.Find "codemp ='" + Trim(dtcEmpleado.BoundText) + "'"
If Not .EOF Then
Text1 = .Fields(0) 'Carga el 1er campo
End If
End If
End With
End Sub
2.-Ahora si agregas un nuevo registro y necesitas que dicho registro se actualize en el datacombo entonces debes volver a cargar el datacombo mas no intentar actualizarlo ni nada por el estilo, te sugiero crear una funcion Cargar_combo para que no estes repitiendo codigo y asi puedes actualizar el combo llamando a la funcion desde cualquier otro formulario de esta manera Form4.Cargar_combo, Form5.Cargar_combo, etc.
saludos