¿porque desaparece la informacion?

[skato0000]

Este es el codigo para abrir Word:

Private Sub ButtonMac2_Click()
Dim sql, sql2 As String
Dim asignados As Double
Dim resp
If Text13.Text = "" Then
x = MsgBox("No se ingresó ninguna clave, el campo es obligatorio, Vease Manual de Errores", vbCritical, "Error 002")
Text13.SetFocus
Else
Adodc1.RecordSource = "SELECT presproy.id_proy FROM presasig, presproy WHERE presasig.id = " & Val(Text13.Text) & " AND presasig.id = presproy.id_presasig"
Adodc1.Refresh

Adodc1.RecordSource = "SELECT asig FROM soli WHERE id_proye = " & Val(Text22.Text) & " AND carr = '" & Text5.Text & "'"
Adodc1.Refresh
asignados = Adodc1.Recordset.Fields("asig")
asignados = asignados - 1
Call conectar
sql = "UPDATE soli SET asig = " & asignados & " WHERE id_proye = " & Val(Text22.Text) & " AND carr = '" & Text5.Text & "'"
con.Execute sql
con.Close

resp = "ON"
Call conectar
sql2 = "UPDATE presasig SET concluyo = " & resp & " WHERE id = " & Val(Text13.Text) & ""
con.Execute sql2
con.Close

x = MsgBox("Concluyó su Servicio Social", vbOKOnly, "Baja")
Call InformacionTerminoSocial 'linea para abrir word
End If
End Sub