sql_con.txt

Noona Test: System will automatically delete the directory of debug and release, so please do not pu

Dim cn As ADODB.Connection
     Set cn = New Connection
    cn.ConnectionString = "Provider=SQLNCLI.1;Integrated Security=SSPI;" & _
        "Persist Security Info=False;" & _
        "AttachDBFileName=" & App.Path & "\northwnd.mdf;Data Source=server1\sqlexpress"
    cn.Open