Private Sub Command1_Click()
    Dim i As Integer
    '1º EJECUTAR LA CONSULTA
    Data1.Commands(1).Execute
    '2º ABRIR EL RECORDSET
    If Data1.Recordsets(1).State = 0 Then
        Data1.Recordsets(1).Open
    End If
    '3º procesar la informacion
    For i = 1 To Data1.Recordsets(1).RecordCount
        List1.AddItem Data1.Recordsets(1).Fields(0).Value 
        Data1.Recordsets(1).MoveNext
    Next
 
    '4ºcerrar el recordset
    If Data1.Recordsets(1).State = 1 Then
         Data1.Recordsets(1).Close
    End If
 
 
End Sub
 

Private Sub Command1_Click()
    Dim pag As String
    pag = "http://www.facebook.com/"
    Shell "C:\Program Files\Mozilla Firefox\firefox.exe" & pag
End Sub
 
Private Sub Command2_Click()
    Dim pag As String
    pag = "https://twitter.com/"
    Shell "C:\Program Files\Mozilla Firefox\firefox.exe" & pag
End Sub
 
Private Sub Command3_Click()
    Dim pag As String
    pag = "https://www.hotmail.com/"
    Shell "C:\Program Files\Mozilla Firefox\firefox.exe" & pag
End Sub
 
Private Sub Command4_Click()
    Dim pag As String
    pag = "https://www.gmail.com/"
    Shell "C:\Program Files\Mozilla Firefox\firefox.exe" & pag
End Sub
 
Private Sub Command5_Click()
    Dim pag As String
    pag = "http://www.linkedin.com/"
    Shell "C:\Program Files\Mozilla Firefox\firefox.exe" & pag
End Sub
 
Private Sub Command6_Click()
    End
End Sub
 
Private Sub Command7_Click()
    Dim pag As String
    'introducimos la direccion a donde queramos enlazar
    pag = "http://www.facebook.com/"
    'direccion donde tengamos instalado el navegador
    Shell "C:\Program Files\Mozilla Firefox\firefox.exe" & pag
    pag = "https://twitter.com/"
    Shell "C:\Program Files\Mozilla Firefox\firefox.exe" & pag
    pag = "https://www.hotmail.com/"
    Shell "C:\Program Files\Mozilla Firefox\firefox.exe" & pag
    pag = "https://www.gmail.com/"
    Shell "C:\Program Files\Mozilla Firefox\firefox.exe" & pag
    pag = "http://www.linkedin.com/"
    Shell "C:\Program Files\Mozilla Firefox\firefox.exe" & pag
End Sub