Visual Basic - CONECTAR Y BARRA DE PROGRESO

Estoy tratando de conectarme a una base de datos MySQL en un servidor de internet. La conexion es perfecta!! pero lo que no puedo es hacer una barra de progreso que muestre el timpo. ejemplo:

Private Sub Conectar_Click()
ProgressBar1.Value = 1
Timer1.Enabled = True
MySQL.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER............."
MySQL.CursorLocation = adUseClient
MySQL.Open
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 1
End Sub

No puedo hacer que el timer mueva la barra de progreso mientras se esta conectando, cuando el proceso de conecar termina es cuando la barra comienza a moverse. AYUDA PORFA

pn el numero de registros que tiene bd y ya puedes controlar

nonoo lo que pasa es que la barra de progreso se mueve cada segundo, es para ver cuanto tiempo lleva conectandose el programa !