关于用VB.NET连接access数据库出现了一些问题，调试的时候自动关掉了

以下是模块模块1
完整的模块
进口System.Data
进口System.IO
进口System.Data.OleDb
CN作为新OleDb.OleDbConnection （供应商= Microsoft.Jet.OLEDB.4.0;数据源= C：\ ACCESS数据库的。mdb“）'定义连接---改变到实际的数据库路径和名称
DataBaseRST上的作为整数使用返回数据库执行的结果
的公共功能DataModify（BYVAL str作为字符串）作为布尔数据库的操作功能
昏暗的cmdinsert作为新的OleDbCommand
尝试
cmdinsert.CommandText = STR
是用来返回cmdinsert.Connection的= CN
如果cn.State = ConnectionState.Closed cn.Open（）
DataBaseRST cmdinsert.ExecuteNonQuery（）的执行结果 BR /> cn.Close（）
，则返回true
赶上前为异常
MessageBox.Show（Err.Description，“错误”，MessageBoxButtons.OK，MessageBoxIcon.Error）
返回False
尝试
端的功能
功能搜索（BYVAL作为字符串，BYVAL的DGV作为DataGridView的）作为布尔查询STR ---查询命令，DGV ---海峡和DataGridView控件来显示数据
昏暗的结核病新的DataTable

昏暗的AP尝试作为的新OleDb.OleDbDataAdapter（STR，CN）
ap.Fill（TB）
DGV作为数据源= TB
返回TRUE，“
抓住前异常
MessageBox.Show（Err.Description，”错误“，MessageBoxButtons.OK，MessageBoxIcon.Error）
则返回false />末尝试
功能
前端模块

以下是通话
DataModify（“插入AA值吗？（'1 '，'2'）“）-------这里是数据库更新操作。
搜索（”选择BB AA“DataGridView1的）-----------数据表的查询操作。