
Dim cn As Object
Dim sh As Worksheet
Dim rs
Set rs = CreateObject("ADODB.recordset")
Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider=SQL NATIVE CLIENT;Server=10.111.222\pipp\SQLEXPRESS;database=elenco;Trusted_Connection=yes;"
Sql = "SELECT * FROM DIPENDENTI"
rs.Open Sql, cn, 1, 3, 1
|
