How to enable Microsoft Access Driver (*.mdb, *.accdb) in Microsoft Azure server?

How do I do this? I am seriously having a hard time with this. Any help would be ever so relieving.?

• '=======================================… ' NAME: ComputersDatabase.vbs ' ' AUTHOR: mysterx , ' DATE : 10/6/2011 ' ' COMMENT: Use 32 bit ODBC Microsoft Access Driver ' '=====================================… recordsStr = "" sqlStr = "SELECT * FROM Computers" dataSource = "provider=Microsoft.ACE.OLEDB.12.0;" _ & "data source=C:\VBScripts\Computers.accdb" Set objConnection = CreateObject("ADODB.Connection") objConnection.Open dataSource Set objRecordSet = CreateObject("ADODB.Recordset") objRecordSet.Open sqlStr , objConnection objRecordSet.MoveFirst ' Display Headers recordsStr = "Computer HostName Room_Num" & _ " CPU_Type Speed Num_CPUs Bit_Size OS_Type " & _ " Memory HDD_Size" & vbCrLf & _ "=======================================… & _ "=============================" & vbCrLf Do Until objRecordSet.EOF recordsStr = recordsStr & objRecordSet.Fields.Item("Computer") & _ vbTab & pad(objRecordSet.Fields.Item("HostName")… & _ vbTab & pad(objRecordSet.Fields.Item("Room_Num")… & _ vbTab & objRecordSet.Fields.Item("CPU_Type") & _ vbTab & objRecordSet.Fields.Item("Speed") & _ vbTab & objRecordSet.Fields.Item("Num_CPUs") & _ vbTab & objRecordSet.Fields.Item("Bit_Size") & _ vbTab & pad(objRecordSet.Fields.Item("OS_Type"),… & _ vbTab & objRecordSet.Fields.Item("Memory") & _ vbTab & objRecordSet.Fields.Item("HDD_Size") & vbCrLf objRecordSet.MoveNext Loop objRecordSet.Close objConnection.Close WScript.Echo recordsStr function pad(ByVal strText, ByVal len) pad = Left(strText & Space(len), len) end Function Option Explicit Dim strConnection, conn, rs, strSQL strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ Server.MapPath(".\db\db.mdb") & ";User Id=admin;Password=;" Set conn = Server.CreateObject("ADODB.Connection") conn.Open strConnection Set rs = Server.CreateObject("ADODB.recordset") strSQL = "SELECT * FROM myTable" rs.open strSQL, conn, 3,3 rs.MoveFirst WHILE NOT rs.EOF Response.Write(rs("myField") & "<br/>") rs.MoveNext WEND rs.Close Set rs = Nothing conn.Close Set conn = Nothing Sub TestADO Dim Conn, Rs, Fldr Fldr = Log.CreateFolder("Authors Table") Log.PushLogFolder Fldr ' Creates and opens a connection Set Conn = CreateObject("ADODB.Connection") Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" + _ "Data Source=C:\Program Files\Microsoft Visual Studio\VB98\biblio.mdb" Conn.Open ' Creates and opens a recordset Set Rs = CreateObject("ADODB.Recordset") Rs.Open "Authors", Conn, 3, 1, 2 ' adOpenStatic, adLockReadOnly, adCmdTable ' Processes data Rs.MoveFirst While Not Rs.EOF Log.Message Rs.Fields.Item("Author").Value Rs.MoveNext WEnd ' Closes the recordset and connection Rs.Close Conn.Close Set Rs = Nothing Set Conn = Nothing End Sub

• Answer:

  And the problem you're facing is?