在VB2005中无法删除数据表中的记录
    Public conn As New OleDbConnection '声明一个OleDbConnection类型的对象conn，用以打开数据库
    Public Sub OpenData()
        '******功能：打开数据库
        Dim mySQL As String    '创建SqlCommand对象
        mySQL = "Provider=SQLOLEDB;Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\CJGL.mdf;Integrated Security=SSPI;User Instance=True;"  
      
        conn = New OleDbConnection(mySQL)
        conn.Open() '打开SQL数据库
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '测试用
        Dim mySQL As String
        Dim myCmd As OleDb.OleDbCommand
        OpenData()  '可以正常打开SQL数据库文件 CJGL.mdf
        mySQL = "Delete From TempRang "  
        myCmd = New OleDbCommand(mySQL, conn)
        myCmd.ExecuteNonQuery()
         '问题是TempRang数据表中的记录无法删除、更新、插入,但可以通过DataReader读取表中记录
    End Sub

[此贴子已经被作者于2016-1-25 09:27编辑过]

mySQL = "Provider=SQLOLEDB;Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\CJGL.mdf;Integrated Security=SSPI;User Instance=True;"  
以上这句有问题，|DataDirectory|\CJGL.mdf数据库用绝对地址如：D:\XXX\XX\CJGL.mdf表示就行了。

现在的问题是：数据库路径用Application.StartupPath表示时显示的是D:\XXX\XX\bin\Debug,多了2层目录\bin\Debug，怎么办？

发布后的程序是正确的，发布前的数据编辑在\bin\Debug\目录下的数据库中