运用下面的类，做一个例子，能对数据库进行“删除，修改，添加”的功能！在线等！（急！）

[mzwww]

Imports System.Data.OleDb
Public Class CtoDb
Private cmm As OleDbCommand
Public Sub New(ByVal ConnectionString As String)
MyBase.new()

vConnectString = ConnectionString

cmm.Connection = cnn
End Sub


#Region "连接"
'连接
Private cnn As New OleDbConnection
Private vConnectString As String = ""

Public Property ConnectString() As String
Get
Return (vConnectString)
End Get
Set(ByVal Value As String)
vConnectString = Value
If cnn.State = ConnectionState.Open Then
cnn.Close()
cnn.ConnectionString = Value
cnn.Open()
Else
cnn.ConnectionString = Value
End If

cmm.Connection = cnn
End Set
End Property

Public Property Connect() As OleDbConnection
Get
If cnn.ConnectionString = "" Then
Me.ConnectTo()
End If

If cnn.State = ConnectionState.Closed Then
cnn.Open()
End If
Return cnn
End Get

Set(ByVal Value As OleDbConnection)
cnn = Value
cmm.Connection = cnn
End Set
End Property

Public Function ConnectTo(Optional ByVal CnnString As String = "") As OleDbConnection
Try
If CnnString = "" Then
If vConnectString = "" Then
MsgBox("在您进行连接之前仍旧没有设置连接字符串，" & vbCrLf & vbCrLf & _
"数据库不能进行正确的操作！", MsgBoxStyle.Information, "连接失败")
Return Nothing
Else
CnnString = vConnectString
End If
End If
If cnn.ConnectionString = "" OrElse cnn.State = ConnectionState.Closed Then
cnn.ConnectionString = CnnString
End If

TextConnection:
'测试连接的合法性
If cnn.State = ConnectionState.Open Then cnn.Close()
cnn.Open()
Catch ex As Exception
If MsgBox("系统连接到服务器的数据库时失败！" & vbCrLf & vbCrLf & _
"请您确定服务器是否正常工作或者网络是否畅通！", _
vbRetryCancel + vbCritical + vbDefaultButton2, "连接失败") = vbRetry Then
GoTo TextConnection
Else
MsgBox("连接字符串：" & CnnString & vbCrLf & vbCrLf & _
"错误描述：" & ex.Message)
End If
Finally
Try
cnn.Close()
ConnectTo = cnn
cmm.Connection = cnn
Catch
End Try
End Try
End Function
#End Region
End Class

[mzwww]

那请帮手写一下！我是初学者！希望踢教！！！

[DanielTangram]

基础知识吧，建议你跟着书本做个示例就明白了。

[mzwww]

急啊！会的就做提供一下！！

[机器人]

这个类不完整，第一，这个类没有父类，可构造函数里怎么冒出MyBase.new()
第二，没有提供任何Execute方法，也没有公开Command对象。所以无法对
数据库进行操作，除了连接。

[清风树下]

学习中！！！