Private Sub Combo1_click()
   select case combo1.ListIndex
   case 0
       web.navigate "http://www.google.com.mx"
   case 1
       web.navigate "http://www.hotmail.com"
   case 2
       web.navigate "http://www.trucoswindows.net"
   End Select
End Sub

Private Sub Form_Load()
   Combo1.Text = "Web's"
   Combo1.AddItem ("Google")
   Combo1.AddItem ("Hotmail")
   Combo1.AddItem ("Trucos Windows")
End Sub

Public rs As ADODB.Recordset
Public con As Connection

Public Sub conectar()
Set con = New ADODB.Connection
   con.ConnectionString = "driver={MySQL ODBC 3.51 Driver};server = localhost;uid=root;pwd=pass;database=prueba;connection="
   con.Open
End Sub

Sub registro()
   Set rs = New ADODB.Recordset
   With rs
       .ActiveConnection = con
       .CursorLocation = adUseClient
       .CursorType = adOpenDynamic
       .LockType = adLockOptimistic
       .Open "select * from tabla"
   End With
End Sub

Private Sub Form_Load()
   conectar
   registro
   Set DataGrid1.DataSource = rs
End Sub

image1.picure=LoadPicure("ruta de la imagen")