Need to boost the visibility of your question for solutions? Use the Experts Exchange Help Bell to confirm priority levels and contact subject-matter experts for question attention. Check out this how-to article for more information.
Call DBConn Set rs = New ADODB.Recordset sql = "SELECT ..." rs.Open sql, conn, 1, 2
Public Sub DBConn() 'On Error GoTo ErrorHandler Dim conn As ADODB.Connection Set conn = New ADODB.Connection If sWhichSrvr = "Remote" Then conn.Open "Provider=SQLNCLI10;Server=22.214.171.124,1433\SQLExpress;Database=CCMeet;Uid=uid;Pwd=pwd;" Else conn.Open "Provider=SQLNCLI10;Server=VIRA-5\SQLExpress;Database=CCMeet;Trusted_Connection=yes;" End If Exit Sub ErrorHandler: Beep ErrorHandler End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.