Learn about Edgartown's quest to ensure the safety and security of the entire town's employee and citizen data. Read the case study!
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=184.108.40.206,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.