Code to open Word Template

T

TKM

I need to have my code pass to other data procedures. One in Production then
Stage, Test and then Dev. Here is what they gave me to start with and because
I am new I need some other place to begin. Can anyone help me with this.

'Open the connection to the CLS database. This connection is passed to
all other data retrieval procedures.

Set concls = New ADODB.Connection
'***Production***
'concls.ConnectionString = "Data Source=CLSDATA3"

'***Stage***
'concls.ConnectionString = "Data Source=stageCLSDATA3"

'***Test***
concls.ConnectionString = "Data Source=testCLSDATA3"

'***Dev***
'concls.ConnectionString = "Data Source=devCLSDATA3"

concls.Open

'Get recordset back with loan number

Set rstLoanList = New ADODB.Recordset
strSql = "exec sp_mmBasicData '" & strLoanNumber & "'"
rstLoanList.Open strSql, concls
 
Top