What is wrong with this VBA code?
Expand|Select|Wrap|Line Numbers
- Dim cnn As ADODB.Connection
- Dim canConnect As Boolean
- Public Sub TestConnection()
- Set cnn = New ADODB.Connection
- cnn.Open "Provider=sqloledb;Data Source=testdb.com;Initial Catalog=DBw; UserID=userID; Password='Password';"
- If cnn.State = adStateOpen Then
- canConnect = True
- cnn.Close
- End If
- MsgBox canConnect
- End Sub