looking to display the shell command results to an access for when it is orinated ia same form
CODE
Private Sub Ping_Click()
Dim stAppName As String
Dim strIPAddress As String
strAppName = "C:\WINDOWS\system32\ping.exe -t"
strIPAddress = [COMPNAME]
Shell Environ$("COMSPEC") & " /c " & strAppName & " " & strIPAddress, 1
output = Text
End Sub
| 
