/* Forma atual Dim sql1 As String
Dim rs As String
sql1 = "select sum(vTot) FROM repoe "
FrmRepoe.lbltotal = rs!soma
/********************************/
Landim, o erro acontece porque nao existe o campo soma na tabela repoe, vc. devera dar um nome a esta soma feita pelo sum com 'As' (que é um Alias), abaixo:
Dim sql1 As String
Dim rs As String
sql1 = "select sum(vTot) As Soma FROM repoe "
FrmRepoe.lbltotal = rs!Soma
