Excel Access |
Dim conn As ADODB.Connection Set conn = New ADODB.ConnectionconnString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Database1.accdb;Persist Security Info=False;" conn.Open connStringDim records As ADODB.Recordset Set records = New ADODB.Record Set records = New ADODB.Recordset records.ActiveConnection = conn records.Open "select st1,st2,FuncInAccess(st1,st2) from names "