Sub Main()
    Dim RutEXE As String, RutEXEParam As String
    ' Un Fix si App.patch devuelve \ al final, claro ejemplo C:\ u otra unidad.
    RutEXE = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\")
    RutEXEParam = RutEXE & "APP.exe " & Command$
    Open RutEXE & "Log_Parametros.log" For Binary As 1
        Seek 1, LOF(1) + 1
        Put 1, , RutEXEParam & vbNewLine
    Close 1
    Shell RutEXEParam, vbNormalFocus
End Sub
 

Sub Main()
    Dim años As Integer, r As String
    años = Val(InputBox("Edad", "Edad", "18"))
    r = CStr(InputBox("Raza", "Raza", "Albino"))
    retorno = IIf(años < 18, "Menor de 18" & IIf(r <> "", ", y es " & r, ""), "Mayor de 18" & IIf(r <> "", ", y es " & r, ""))
    MsgBox retorno, vbOKOnly + vbInformation, "Retorno No. 1"
    Call Main2(Val(años), CStr(r))
End Sub
 
Sub Main2(ByVal Edad As Integer, Raza As String)
    Dim años As Integer, r As String
    años = Edad
    r = Raza
    retorno = IIf(r <> "", ", y es " & r, "")
    retorno = IIf(años < 18, "Menor de 18" & retorno, "Mayor de 18" & retorno)
    MsgBox retorno, vbOKOnly + vbInformation, "Retorno No. 2"
End Sub
 

sub main()
msgbox command$
end sub
 

"C:\APP.exe" parametros

ping 127.0.0.1 -n 100

    For i = 1 To Cant_ACC - 1
        datos = CStr(rs!id) & vbNewLine & _
        CStr(rs!vj) & vbNewLine & _
        CStr(rs!genero) & vbNewLine & _
        CStr(rs!plataforma) & vbNewLine & _
        CStr(rs!existencias) & vbNewLine & _
        CStr(rs!precio)
        rs.MoveNext
        MsgBox datos
    Next i
 

For i = 0 To rs.Fields.Count - 1 'Le resto 1 por que esta contando un arreglo
        MsgBox rs.Fields(i).Name
Next i
 

dim Arreglo(1) as string ' la cantidad es de 2 es decir el 0 y el 1
arreglo(0)="aaa"
arreglo(1)="bbb"
for i = 0 to ubound(arreglo)-1 ' es como   For i = 0 To rs.Fields.Count - 1
     msgbox arreglo(i)
next i
 

rs.MoveFirst'hubicate en el primer registro con 
rs!NombreDeColumnaX  'obten los datos
rs.MoveNext'Muevete al Siguiente registro con
 

rs.RecordCount 'Sirve para contar los registros exactos de cualquier Base de Datos
 

     dim c as integer,i as integer
     c=rs.RecordCount
     rs.MoveFirst
     for i = 1 to c
          lista.additem rs!NombreColumna
          rs.movenext
     next i
     'cn.close 'Cierra CN si es nesesario si es que usaras otra BASE DE DATOS lo contrario solo realisa una consulta con RS.open
 

USE NombreDeTabla
 

SELECT Columna FROM  [NombreDeTabla$] WHERE bla bla bla...¡"
 

DirectorioBDD = App.Path & "\data.xls"
 

    For i = 1 To Cant_ACC - 1
        datos = CStr(rs!id) & vbNewLine & _
        CStr(rs!vj) & vbNewLine & _
        CStr(rs!genero) & vbNewLine & _
        CStr(rs!plataforma) & vbNewLine & _
        CStr(rs!existencias) & vbNewLine & _
        CStr(rs!precio)
        rs.MoveNext
        MsgBox datos
    Next i
 

    CN.Close
    set rs=nothing' Solo si ya no usaras el RecordSet en otras funciones pon esta linea de lo contrario no la pongas