Connection Not Establishing in VB6.0

[jamuna]

Hi All,
I'm doing my project in visual basic 6.0 and sql server 2014.
Everything was working fine,but suddenly it started showing that connection coulld not be established.Now I'm getting eror like Run time error 3704.Operation is not allowed when the object is Closed.

Here is my code:
Form_load
--------

Private Sub Form_Load()

Connection
Cn.Execute "IF EXISTS (SELECT name FROM sysobjects WHERE name = 'ServiceAdvisor' AND type = 'U') drop table ServiceAdvisor", adExecuteNoRecords
Cn.Execute "select code2 ServiceAdvisorId, Name ServiceAdvisorName into ServiceAdvisor from mr006 where L2 = (select masterid from mr006 where name='Service Advisor')", adExecuteNoRecords
CloseConnection
End Sub

Public Sub Connection()
    If Cn.State = 1 Then Cn.Close
    Cn.Open "Driver={SQL Server};Server=SQLSERVER2014;Database=C010;Uid=sa;Pwd=MyPwd"
    Cn.Execute "set dateformat dmy"
    Cn.CommandTimeout = 0
    Exit Sub
End Sub

Am getting error on Cn.Open statement.
Can anyone help me?

Thanks
Mary