ODBC Connection Loop until 1

[Trudye]

Hey Guys,
How do I loop until I can establish an ODBC connection? What should my test/Contional criteria be?

if Condition then
Go to LoopRound
else
sConnect = "ODBC;DSN=S_22;DBQ=DSP01;UID=usersmm;PWD=gone;
ASY=OFF;DATABASE="
Endif

Thanx much,
Trudye

 

[stix4t2]

Try puttin the connection string into a connection and testing the connection state.

 

[Trudye]

Not sure how to do that.

 

[stix4t2]

What are you going to do with the connection string when you make a connection?

 

[Trudye]

Process normally. I just want to loop until a connection can be made.

 

[stix4t2]

OK, here is a test to see if you made a connection, does this help?

dim conn as connection
Dim sConnect As String

sConnect = "ODBC;DSN=S_22;DBQ=DSP01;UID=usersmm;PWD=gone;
ASY=OFF;DATABASE="

conn.Open sConnect
If (conn.State = adStateOpen) Then
End If