Option Explicit
Dim db As Database
Dim rs As Recordset
Dim ac As String
Dim art As Integer
Dim s As String
Dim men, m1, m2,m3, mensaje As String
Private Sub cmdConsulta_Click()
s = vbCrlf & vbCrLf
art = txtIDArticulo 'Identificación del artículo de la consulta
ac = .txtUsoCarpe & "\" & .lblArchivo & ".mdb"
Set db = OpenDatabase(ac)
Set rs = db.OpenRecordset("Select Sum(Stock) From ESTADO" Where & art)
men = rs.Fields(0)
m1 = "Estado de Resultado Bodega VVV" & s
m2 = "Stock actual del Artículo Ref Nº " & art & " al " & lblfecha & s
m3 = "Quedan : " & men & " Unidades."
mensaje = m1 & m2 & m3 'Cuerpo del mensaje
'RichTextBox
rtbInforme.Text = mensaje
mensaje = ""
End Sub