我在VB6中用如下代码连接数据库,但在VB.net中就不行 Public Function TransactSQL(ByVal sql As String) As ADODB.Recordset Dim con As ADODB.Connection Dim rs As ADODB.Recordset Dim strConnection As String Dim strArray() As String Set con = New ADODB.Connection '创建连接 Set rs = New ADODB.Recordset '创建记录集 On Error GoTo TransactSQL_Error strConnection = "Provider=Microsoft.jet.oledb.4.0;Data Source=" & App.Path & "\3d.mdb" strArray = Split(sql) con.Open strConnection '打开连接 If StrComp(UCase$(strArray(0)), "select", vbTextCompare) = 0 Then rs.Open Trim$(sql), con, adOpenKeyset, adLockOptimistic Set TransactSQL = rs '返回记录集 iflag = 1 Else con.Execute sql '执行命令 iflag = 1 End If TransactSQL_Exit: Set rs = Nothing Set con = Nothing Exit Function TransactSQL_Error: MsgBox "查询错误：" & Err.Description iflag = 2 Resume TransactSQL_Exit

End Function 请教在VB.net中如何连接*.mbd数据库

应该也可以吧。

不行阿,他说什么生成错误 ,是否退出

肯定不行！

格式不对啊！
在其它页面有这个问题的解答！

应该行的，差个adob的引用
在VBNet 用.net framwork有现成的

Public Class ClsmDBOperation
    Shared Function DBOperate(ByVal SQLString As String) As DataTable
        Try
            Dim CONN As String
            CONN = "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=" + Application.StartupPath + "\ComputerLab.mdb"
            Dim oleconn As New OleDb.OleDbConnection(CONN)
            Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand(SQLString, oleconn)
             = CommandType.Text
            Dim sTokens() As String
            sTokens = SQLString.Split(" ")
            If Strings.InStr("INSERT,DELETE,UPDATE", sTokens(0).ToUpper) Then
                If oleconn.State <> ConnectionState.Open Then
                    oleconn.Open()  '打开数据库连接
                End If
                cmd.ExecuteNonQuery()  '执行SQL语句
                If oleconn.State <> ConnectionState.Closed Then
                    oleconn.Close() '关闭数据库连接
                End If
                'If sTokens(0).ToUpper = "INSERT" Then
                '     MsgBox("插入记录成功")
                ' End If
                '  If sTokens(0).ToUpper = "DELETE" Then
                '      MsgBox("删除记录成功")
                '  End If
                '  If sTokens(0).ToUpper = "UPDATE" Then
                '       MsgBox("更新记录成功")
                '  End If
                Return Nothing
            Else
                Dim ObjectdsDataSet As New DataSet()
                Dim adapter As New OleDb.OleDbDataAdapter()
                adapter.TableMappings.Add("Table", "TEMP")
                adapter.SelectCommand = cmd
                If oleconn.State <> ConnectionState.Open Then
                    oleconn.Open()  '打开数据库连接
                End If
                cmd.ExecuteNonQuery()  '执行SQL语句
                If oleconn.State <> ConnectionState.Closed Then
                    oleconn.Close() '关闭数据库连接
                End If
                adapter.Fill(ObjectdsDataSet) '填充数据集
                Return ObjectdsDataSet.Tables("TEMP")
            End If
        Catch
            MsgBox(Err.Description)
        End Try
        Return Nothing
    End Function
End Class

有事联系qq14403090