[VB.NET]数据库表的初始化问题

<script type="text/javascript"><!--google_ad_client = "pub-8333940862668978";/* 728x90, 创建于 08-11-30 */google_ad_slot = "4485230109";google_ad_width = 728;google_ad_height = 90;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
数据库表的初始化问题
数据库数据初始化(清空表中数据,恢复空表)，库中有one two three三个表，窗体上可使用Checkbox选择为哪些表初始化数据，请问初始化按钮的代码怎么写，谢谢。
__________________________________________________________________________
该回复于2008-08-05 03:39:54被管理员或版主删除
__________________________________________________________________________
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

If CheckBox1.Checked = True Then
Conn = New OleDbConnection(Provider & "; " & Database)
Conn.Open()
SQL = "Delete From one "
Cmd = New OleDbCommand(SQL, Conn)
Cmd.ExecuteReader()
Conn.Close()
MessageBox.Show( "one已经清空！ ")
End If
If CheckBox2.Checked = True Then
Conn = New OleDbConnection(Provider & "; " & Database)
Conn.Open()
SQL = "Delete From two "
Cmd = New OleDbCommand(SQL, Conn)
Cmd.ExecuteReader()
Conn.Close()
MessageBox.Show( "two已经清空！ ")
End If
If CheckBox3.Checked = True Then
Conn = New OleDbConnection(Provider & "; " & Database)
Conn.Open()
SQL = "Delete From three "
Cmd = New OleDbCommand(SQL, Conn)
Cmd.ExecuteReader()
Conn.Close()
MessageBox.Show( "three已经清空！ ")
End If

End Sub
__________________________________________________________________________
fish__net谢谢，虽然我用的是SQlconnection但差不多
__________________________________________________________________________
有用就好!
__________________________________________________________________________