Visual Basic - Insertar un registro a una tabla en sql

Tengo la siguiente conexion con DAO y SQL server
Private Sub Form_Load()
Set conexion = New Connection
With conexion
.Provider = "SQLOLEDB"
.ConnectionString = "server=Wacho;database=db;uid=admin;pwd=admin"
End With
On Error GoTo fallos
conexion.Open
datos_grid = False
Exit Sub
fallos:
MsgBox (Err.Description)
End
End Sub

Esto funciona perfectamente pero cuando voy a insertar un registro a la trabla no lo consigo, lo estoy haciendo de esta forma. alguien puede ayudarme ya q el error es "DEBE INDICAR OBJETO"

With reg_cuentas
.Source = "insert into amodisco ([CUENTA],[ORDEN],[FECHA],[DESCRIPCION],[CUENTA_PROV],[OBSERVACIONES],[FECHA_BAJA],[VALOR],[AÑOS],[COEFICIENTE],[AMORTIZACION_ACUM],[ENAJENACION]) values ([text_cuenta],[text_orden],[text_fecha],[text_descripcion],[text_cuenta_prov],[text_observaciones],[text_fecha_baja],[text_valor],[text_años],[text_coeficiente],[text_amortizacion_acum],[text_enajenacion]))"
.ActiveConnection = Form1.conexion
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.LockType = adLockOptimistic
End With

Amigo, creo que te esta faltando un select, en vez de poner values, prubea poniendo select:
INSERT INTO amodisco ([CUENTA],[ORDEN],[FECHA],[DESCRIPCION],[CUENTA_PROV],[OBSERVACIONES],[FECHA_BAJA],[VALOR],[AÑOS],[COEFICIENTE],[AMORTIZACION_ACUM],[ENAJENACION]) SELECT([text_cuenta],[text_orden],[text_fecha],[text_descripcion],[text_cuenta_prov],[text_observaciones],[text_fecha_baja],[text_valor],[text_años],[text_coeficiente],[text_amortizacion_acum],[text_enajenacion]))"