El error se produce porque:
Dim SQL3 As String
SQL3 = "SELECT Unidades FROM Producto WHERE ID_Producto=14683"
DoCmd.RunSQL SQL3
El método .RunSql únicamente ejecuta consultas de acción. O lo que es lo mismo, actúa sobre la BBDD actualizándola UPDATE, insertando, INSERT etc... no funciona usando un SELECT
Para poder capturar en una variable algún valor, debes instanciar un objeto RecordSet y recorrer el resultado (ten en cuenta que esto se debe a que el resultado de la consulta puede devolver varios registros a la vez)
Con este código:
Dim dbs As DAO.Database
Dim rsSQL As DAO.Recordset
Dim strSQL As String
Set dbs = CurrentDb
'Open a snapshot-type Recordset based on an SQL statement
strSQL = "SELECT * FROM Table1 WHERE Field2 = 33"
Set rsSQL = dbs.OpenRecordset(strSQL, dbOpenSnapshot)
Ya tienes creado el objeto Recordset en rsSQL. Luego solo tienes que recorrerlo con With y capturar los valores que desees:
Como puedes ver, dentro del Loop, se recorrerá toda la consulta, tanto si hay un resultado como si hay varios. Los campos se indican como ![campo1]. En el ejemplo se editan, y se actualiza, pero tú puedes únicamente leer y asignar a una variable el valor de un campo Mivariable = ![campo1] (eso sí, define bien el tipo de variable, ya que podría no ser compatible con el dato leído...)
' If the recordset is empty, exit.
If rstEmployees.EOF Then Exit Sub
With rsSQL
Do Until .EOF
.Edit
![ReportsTo] = 5
![Title] = "Temporary"
.Update
.MoveNext
Loop
End With
Para finalizar, ya fuera del Loop, y no menos importante, debes destruir la instancia... primero se cierra el objeto y luego se destruye la instancia
rsSQL.Close
Set rsSQL = Nothing