Recent content by gharsa

im cn As ADODB.Connection Dim rs As ADODB.Recordset Set cn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") With cn .ConnectionString = "PROVIDER=SQLOLEDB;" & _ "DATA SOURCE=sever;" & _ "USER ID=sa;" & _ "PASSWORD=dimu;" & _ "INITIAL CATALOG=base" .Open End...