Attribute VB_Name = "connectionParams"
'Set the connection parameters for database

Public datasource As String
Public username As String
Public password As String

Public Sub setparams()
  datasource = "ifso817"
  username = "oledb"
  password = "oledb"
End Sub