Is this have any Problem ..............?

[bzac]

Is there any problem in using this as a common connection.
(VB6-ADO2.5-Access2000)

Public dbHr As ADODB.Connection
Public dbHrflag As Boolean

Public Sub openDFSALHR()
'Open a common database connection
Set dbHr = New Connection

dbHr.CursorLocation = adUseClient
dbHr.ConnectionString = "provider= Microsoft.Jet.OLEDB.4.0;Data Source=\\ntfs-01\data\OCC\DFS\DFSALHR.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"
dbHr.Open

dbHrflag = True
End Sub