How to Databind in VB.NET

Imports System
Imports System.Data.SqlClient

Dim sConnection As String = "Provider=SQLOLEDB.1;Data Source=(local);User ID=sqlusername;Password=sqlpassword;Initial Catalog=CD;Persist Security Info=True;"

Dim SQL As String
SQL = "SELECT Field1, Field2 From Table"
Dim sqlConn As New OleDb.OleDbConnection(sConnection)
Dim sqlDataAdapter As New OleDb.OleDbDataAdapter(SQL, sqlConn)
Dim sqlDS As New DataSet("Table")
Dim sqlDV As DataView

Try
 sqlConn.Open()
Catch ex As Exception
 Msgbox(ex.Message)
End Try

If sqlConn.State = ConnectionState.Open Then
   Try
      sqlConn.Close()
      Dim sqlTable As DataTable
      sqlTable = sqlDS.Tables("Table1")
      sqlDV = sqlTable.DefaultView
      textBox1.DataBindings.Add("Text", sqlDV, "Field2")
   Catch ex As Exception
      MsgBox(ex.Message)
   End Try
End If

How to connect to MS-SQL using VB.Net

Import System.Data.SqlClient

Dim sConnection As String
sConnection = "Data Source=servername;User ID=sqlusername;Password=sqlpassword;Initial Catalog=CD;Persist Security Info=True;"

Dim SqlCon As New SqlConnection(sConnection)
SqlCon.Open

How to create new file using FileSystemObject

Option Explicit
Dim objFSO, objFSOText, objFolder, objFile
Dim strDirectory, strFile
strDirectory = "C:\New Folder"
strFile = "\New File.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder(strDirectory)
Set objFile = objFSO.CreateTextFile(strDirectory & strFile)
Wscript.Echo strDirectory & strFile & " created successfully."
Wscript.Quit

How to read key from registry in VB.NET

Imports Microsoft.Win32

Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey("Keyname").OpenSubKey("Keyname").OpenSubKey("Keyname").OpenSubKey("Keyname")

MsgBox key.GetValue("keyname")

How to Create New folder using FileSystemObject

Option Explicit
Dim objFSO, objFolder, strDirectory
strDirectory = "c:\New Folder"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder(strDirectory)
WScript.Echo strDirectory & " created successfully."
WScript.Quit