Sub test() Dim oConn As Object, oRS As Object Set oConn = CreateObject("ADODB.Connection") oConn.Open = "DSN=Micros;" & _ "UID=dbuser;PWD=dbpassword;DatabaseName=micros;" & _ "DatabaseFile=C:\MICROS\DATABASE\Data\micros.db;" & _ "Engine...
Sumber data dan namanya dijadiin variable yang mengambil value dari cell Misal : sumber data di Sheet1, Cell A1 nama di cell Sheet1, Cell A2 codenya: source = Sheets1.Range("A1").Value name = Sheets1.Range("A2").Value "Text; " & source & " ", _ .Name
