Hi PPL,
I m very new for ADO.NET Here I had Write a class for Accessing the DataBase & for Manipulation It. plz give me for suggestions Or Comments .

---

''
'******************************************************'
' This class is used for all the DataBase Manipulation '
' Created on Date :- 17/10/2006 1:40 AM '
' By:- Sonal SoftTech? , Ballarpur. (MS) INDIA 442701 '
' Sonal Nilkanth Satpute, ph. +91-9226264978 '
'******************************************************'
'======================================================'


Imports System.Data
Imports System.Data.OleDb


Public Class clsDataBase

#Region "Shared Members"
Shared gConn As OleDbConnection
Shared strConn As String
#End Region

#Region "Private DataMembers"
Private cmd As OleDbCommand
Private da As OleDbDataAdapter
Private dt As DataTable
Private dRow As DataRow
Private dCol As DataColumn
Private ds As DataSet
Private dr As OleDbDataReader
Private dParm As OleDbParameter
Private bmb As BindingManagerBase
Private bs As BindingSource
''***********************************''
#End Region

#Region "Contructors.........."
''Open Default DataBase
Sub New()
strConn = ("Provider=Microsoft.Jet.OleDb.4.0; Data Source = D:\TEMP\TestADO\DB\db1.mdb;")
gConn = New OleDbConnection(strConn)
End Sub

'' Open DataBase From Other Location
Sub New(ByVal sDbPath As String)
Try
strConn = "Provider=Microsoft.Jet.OleDb.4.0; Data Source = " & sDbPath & ";"
CloseConn()
If ConnectToDataBase() = False Then
MessageBox.Show("Can't Open DataBase", "ReConnect", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
Catch ex As OleDbException
MessageBox.Show(ex.ToString, "Open DataBase From Other Location", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
#End Region

Private Function ConnectToDataBase() As Boolean
Try
gConn = New OleDbConnection(strConn)
Return (True)
Catch ex As OleDbException
MessageBox.Show(ex.ToString, "ConnectToDataBase", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return (False)
End Try
End Function

Public Function GetColValue(ByVal cName As String) As String
Try
If dt.Rows.Count > 0 Then
''To get the current row
dRow = dt.Rows(bmb.Position)
Return CStr(dRow(cName))
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "GetColValue", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End Try
Return "NO.Records."
End Function

#Region "To Add,Alter Or Delete The Records"

Public Function RunNonQuery(ByVal sSQL As String) As Boolean
Try
OpenConn()
cmd = New OleDbCommand(sSQL, gConn)
cmd.ExecuteNonQuery()
CloseConn()
Return True
Catch ex As OleDbException
MessageBox.Show(ex.ToString, "RunNonQuery", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return False
End Try
End Function

Public Function RunNonQuery(ByVal sSQL As String, ByVal trn As OleDbTransaction) As Boolean
Try
OpenConn()
cmd = New OleDbCommand(sSQL, gConn, trn)
cmd.ExecuteNonQuery()
CloseConn()
Return True
Catch ex As OleDbException
MessageBox.Show(ex.ToString, "RunNonQuery", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return False
End Try
End Function
#End Region

#Region "Get Records For View"

Public Function getForView(ByVal sSQL As String, ByRef dReader As OleDbDataReader) As Boolean
Try
OpenConn()
cmd = New OleDbCommand(sSQL, gConn)
dr = cmd.ExecuteReader()
CloseConn()
Return True
Catch ex As OleDbException
MessageBox.Show(ex.ToString, "RunNonQuery", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return Nothing
End Try
End Function

'''WithOut Binding To DataGridView
Public Function getForView(ByVal sSQL As String, ByVal dGridView As DataGridView) As Boolean
Try
OpenConn()
da = New OleDbDataAdapter(sSQL, gConn)
dt = New DataTable
da.Fill(dt)
dGridView.DataSource = dt
CloseConn()
Return True
Catch ex As OleDbException
MessageBox.Show(ex.ToString, "RunNonQuery", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return False
End Try
End Function

'''With Binding To DataGridView
Public Function getForView(ByVal sSQL As String, ByVal dGridView As DataGridView, ByVal frm As Form) As Boolean
Try
OpenConn()
da = New OleDbDataAdapter(sSQL, gConn)
dt = New DataTable
bs = New BindingSource
da.Fill(dt)
bs.DataSource = dt
bmb = frm.BindingContext(bs)
dGridView.DataSource = bs
CloseConn()

Return True
Catch ex As OleDbException
MessageBox.Show(ex.ToString, "RunNonQuery", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return Nothing
End Try
End Function

#End Region

#Region "Cheak DataBase Opening, Closing"
Private Function chkConnState() As Boolean
If gConn.State = ConnectionState.Open Then
Return (True)
Else
Return (False)
End If
End Function

Private Sub CloseConn()
If chkConnState() Then
gConn.Close()
End If
End Sub

Private Sub OpenConn()
If chkConnState() = False Then
gConn.Open()
End If
End Sub

#End Region

#Region "Navigation Of Records"

Public Sub MoveFirst()
bmb.Position = 0
End Sub

Public Sub MoveLast()
bmb.Position = bmb.Count
End Sub

Public Sub MovePrev()
bmb.Position -= 1
End Sub

Public Sub MoveNext()
bmb.Position += 1
End Sub

#End Region

End Class