Faz o seguinte: Dim Db As Database, Rs As Recordset, Sql As String Set Db = CurrentDb Set Rs = Db.OpenRecordset("CONSULTA SQL") Me.valorunitário = Rs.Fields(COLUNA) *O valor em coluna deve ser o número correspondente ao campo, começando do 0 (zero), ou seja, se for a primeira coluna da consulta que você quer pegar então Rs.Fields(0), caso seja o segundo, Rs.Fields(1) e assim por diante. *Esse código sempre buscará a primeira linha da consulta, caso você queira navegar pelas linha utilize o Move, ex.: Rs.MoveFirst (vai pra primeira linha) Rs.MoveLast (vai pra última linha) Rs.MoveNext (vai para a próxima linha) Rs.MovePrevious (vai para a linha anterior) Espero que tenha ajudado em algo
