Start af forbindelse til database.

Opret en funktion noget lignende

function connectToDatabase() as boolean
on error goto errorHandle
  g_strConnectionString = "Provider=SQLOLEDB;Password=...."
  Set adoConn = CreateObject("ADODB.CONNECTION")
  adoConn.Open g_strConnectionString
  connectToDatabase = true
exit function
  connectToDatabase = false
errorHandle:
end function

Opret evt en timer, tilføjer du denne til en loop vil du have et meget optaget system.
private sub timer1_Timer()
  timer1.enabled = not connectToDatabase
end sub

Timeren skal startes som timer1.enabled = true, Når der så bliver oprettet forbindelse sættes timeren til false ("not connectToDatabase" som returnere true når der forbindes ) og derved stopper med at forsøge at forbinde. Timerens interval er jo så op til dig.

Det er vel egentlig et svar ? :)

Gjorde nu mere som dette:

sub connectToDatabase()
on error goto errorHandle
  g_strConnectionString = "Provider=SQLOLEDB;Password=...."
  Set adoConn = CreateObject("ADODB.CONNECTION")

retur:
  adoConn.Open g_strConnectionString

  'hente data
  exit sub

errorHandle:
doevent
goto return
end sub

Det vil som jeg sagde give dig mange flere connects da den konstant vil forsøge at forbinde og ikke vente i et timedelay i mellem hver, men fint hvis det virker for dig :)