How to modify the registry: Attribute VB_Name = "modRegistryChange"Option ExplicitPublic Declare Function RegOpenKeyEx Lib "Coredll" _ Alias "RegOpenKeyExW" _ (ByVal hKey As Long, _ ByVal lpSubKey As String, _ ByVal…
How to open a program using its default application: Private Declare Function ShellExecuteAny Lib "shell32.dll" Alias "ShellExecuteA" _(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ByVal…
Using SQL Server connection: Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Command1_Click() cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa; pwd=sales;Initial Catalog=Sellout;Data Source=ATLAS-LAPTOP\NISTA" cn.Open Dim TheString As String TheString…