<DllImport("msi", EntryPoint:="MsiOpenDatabase")> _
    Public Shared Function MsiOpenDatabase(ByVal dbpath As String, _
    ByVal persist As IntPtr, ByRef msihandle As IntPtr) As Integer
    End Function
 
    Private Const ERROR_SUCCESS As Integer = 0
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim hDB As IntPtr = IntPtr.Zero
        Dim persist As New IntPtr(1)
        Dim ret% = MsiOpenDatabase("C:\x.msi", persist, hDB)
        MsgBox(IIf(ret = ERROR_SUCCESS, "Ok", "Error"))
    End Sub