26-04-17, 12:10 AM
Imports System.Data.OleDb
Module Module1
Dim s As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\per.accdb"
Public cn As New OleDbConnection(s)
Sub main()
Try
cn.Open()
Dim a As New Form1
a.ShowDialog()
Catch ex As Exception
MsgBox("error")
End Try
End Sub
Module Module1
Dim s As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\per.accdb"
Public cn As New OleDbConnection(s)
Sub main()
Try
cn.Open()
Dim a As New Form1
a.ShowDialog()
Catch ex As Exception
MsgBox("error")
End Try
End Sub
