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

Ante todo gracias por el tiempo que se toman en atender nuestras dudas mi problema es el siguiente tengo 2 formularios un MDI y un Form1 también una base en Access desde donde jalo la información llamada datos.mdb, en el Form1 tengo un DataGrid y un Text1 .

Ahora en el Form Load hago esta programación para poder abrir la base de datos y cargarla al DataGrid1

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

Luego de esto en el DataGrid1 hago esta programación, para que al momento de hacer doble clic en alguno de los registros me habrá un documento de Word según la ruta que tengo en el Text1

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

Ahora el problema es que al momento de abrir el documento lo abre minimizado no entiendo porque

Una cosa mas programe esto en el MDI para que no aparezcan los botones de minimizar maximizar y cerrar

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

Luego de eso lo quite y siguió con lo mismo espero puedan ayudarme por favor no puedo solucionar este problema y les agradecería infinitamente si pueden darme una ayuda muchas gracias que tengan buen dìa