DB Connection on VB.NET with

herewith is sample for connection database with oledb. the sample using microsoft access and for connection i using a class. the syntax for connection like below :

Imports System.Data.OleDb

Public Class dbcon
#Region "Variable Declerations"
  Private objConnection As OleDbConnection
  Private objDataTable As DataTable
#End Region

#Region "Constructors"


  Public Sub New()
  Dim dbpath As String = Application.StartupPath & "\test.mdb "
  objConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & dbpath & "'; Jet OLEDB:database password=")
  objDataTable = New DataTable
  End Sub
#End Region

#Region "Methods"
  Public Function QueryDatabase(ByVal Query As String) As DataTable
  Try
  Dim objDataSet As New DataSet
  Dim objDataTable As New DataTable

  Dim objDataAdapter As New OleDbDataAdapter(Query, objConnection)

  objDataAdapter.Fill(objDataSet, "DefaultTable")
  objDataTable = objDataSet.Tables("DefaultTable")

  objConnection.Close()

  Return objDataTable

  Catch ex As Exception
  Return objDataTable
  MessageBox.Show(ex.Message, "Error.", MessageBoxButtons.OK, MessageBoxIcon.Error)
  End Try
  End Function

  Public Sub DatabaseCommand(ByVal CommandString As String)
  Try
  Dim objInsert As New OleDbCommand

  objInsert.CommandText = CommandString
  objInsert.Connection = objConnection
  objInsert.Connection.Open()
  objInsert.ExecuteNonQuery()
  objConnection.Close()

  Catch ex As Exception
  MessageBox.Show(ex.Message, "Error.", MessageBoxButtons.OK, MessageBoxIcon.Error)
  End Try
  End Sub
#End Region

End Class

The complete sample you can download in this link