Function OpenDBConnect()
Set con = CreateObject("adodb.connection")
con .ConnectionString = "Enter here Connection string"
con .Open
End Function
Set con = CreateObject("adodb.connection")
con .ConnectionString = "Enter here Connection string"
con .Open
End Function
No comments:
Post a Comment