Hvala unaprijed za svaku pomoć.
Code:
Set MyConn = CreateObject("ADODB.Connection")
MdbFilePath = "C:\Alarmi ulaza.mdb"
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
SQL_query = "qryInsert"
Set RS = MyConn.Execute(SQL_query)
'RS.Close
set RS = nothing
MyConn.close
set MyConn = nothing
Set MyConn = CreateObject("ADODB.Connection")
MdbFilePath = "C:\Alarmi ulaza.mdb"
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
SQL_query = "qryInsert"
Set RS = MyConn.Execute(SQL_query)
'RS.Close
set RS = nothing
MyConn.close
set MyConn = nothing