ODBC - Error en Webbrowser en Vb6.0

Hola tengo problemas al mostrar el popup en vb6.0, utilizo el webbrowser :

aqui les dejo el codigo :

Private Sub controlweb_NewWindow2(ppDisp As Object, Cancel As Boolean)
'Cancelamos la ventana del explorador predeterminado
Cancel = True

Dim frm_web As frmweb
'Nueva instancia del formulario
Set frm_web = New frmweb
frm_web.controlweb.RegisterAsBrowser = True
Set ppDisp = frm_web.controlweb.object

frm_web.Show vbModal

Set frm_web = Nothing

End Sub

Por favor necesito de su ayuda.