|
Imports Microsoft.Win32
Imports System.Data.OleDb Public Class Form1 Inherits System.Windows.Forms.Form Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\WROX") OleDbConnection1.ConnectionString = key.GetValue("ConnectionString").ToString() End Sub End CLASS |