\'从注册表中读取值

Dim xigua_dir As String

xigua_dir = Registry.GetValue("HKEY_CURRENT_USER\\Software\\xigua","xigua_dir","0")

\'判断注册表中配置的数据库路径值是否为空 如为空 则

If xigua_dir="0" Then

    \'打开对话框,选择文件,保存数据库路径至注册表,赋值给数据源

    If e.Name = "数据源名称" Then

        Dim dlg As New OpenFileDialog

        dlg.Filter= "Access文件|*.mdb"

        If dlg.ShowDialog = DialogResult.Ok Then

            Registry.SetValue("HKEY_CURRENT_USER\\Software\\xigua","xigua_dir",dlg.FileName)

            

            e.C & dlg.FileName & ";Persist Security Info=False"

        End If

    End If

    \'否则

Else

    \'判断该数据库文件是否存在 如存在 则

    If FileSys.FileExists(xigua_dir) Then

        

        \'赋值给数据源

        If e.Name = "数据源名称" Then

            e.C & xigua_dir & ";Persist Security Info=False"

            

        End If

        \'否则

    Else

        \'打开对话框,选择文件,保存数据库路径至注册表,赋值给数据源

        If e.Name = "数据源名称" Then

            Dim dlg As New OpenFileDialog

            dlg.Filter= "Access文件|*.mdb"

            If dlg.ShowDialog = DialogResult.Ok Then

                Registry.SetValue("HKEY_CURRENT_USER\\Software\\xigua","xigua_dir",dlg.FileName)

                

                e.C & dlg.FileName & ";Persist Security Info=False"

            End If

        End If

        \'判断结束

    End If

    \'判断结束

End If

貌似数据源连接字符串部分被屏蔽了，大家自行修正 ConnectionString

或者见附件实例吧。