Option Explicit On
Imports System
Imports System.Data
Imports System.Data.OleDb
Public Class DbConn
Dim cnStr As String
Dim con As OleDbConnection
Public Function getConn() As OleDbConnection
con = New OleDbConnection()
con.ConnectionString = cnStr
con.Open()
Return con
End Function
End Class

没有连接字符串，cnStr 为 Nothing。
---贴吧极速版 For UWP