Visual Basic - Documentos me quedan minimizados al momento de abrirlos desde data grid VB 6.0

Private Sub Form_Load()

'conectar el adodc1 con la tabla

Adodc1.CursorLocation = adUseClient

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\datos.mdb; persist security info=False"

'conectar el adodc1 con la tabla de usuarios

Adodc1.RecordSource = "SELECT * FROM clientes order by cliente"

Adodc1.Refresh 'actualizar los datos del adodc1

'asignar el Adodc1 al Datagrid1

Set DataGrid1.DataSource = Adodc1

FormatoDataGrid 'dar formato al data grid

'marcar una opcion como busqueda predeterminada

Text1.Text = " "

End Sub

Private Sub DataGrid1_DblClick()

Form1.Text1.Text = DataGrid1.Columns(7).Text

On Error GoTo error

Dim wb As Object

Set wb = CreateObject("Word.Basic")

wb.FileOpen Name:=Text1.Text

wb.AppShow

Exit Sub

error:

MsgBox "Error el documento no se encuentra en la carpeta agregelo nuevamente", vbCritical, "Modificar"

End Sub

Private Const WS_SYSMENU = &H80000

Private Const GWL_STYLE = (-16)

Private Declare Function SetWindowLong Lib "user32" Alias _

"SetWindowLongA" (ByVal hwnd As Long, _

ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function GetWindowLong Lib "user32" Alias _

"GetWindowLongA" (ByVal hwnd As Long, _

ByVal nIndex As Long) As Long

Private Sub MDIForm_Load()

Dim L As Long

' Optiene en un long las caracteristicas de La ventana

L = GetWindowLong(Me.hwnd, GWL_STYLE)

L = L And Not (WS_SYSMENU)

L = SetWindowLong(Me.hwnd, GWL_STYLE, L)

End Sub