'Declare outside of class
Imports System.Data.SqlClient
 
 
'Declare inside of class >
Dim SQLStr As String
Private ConnString As String
 
'Connstring = Server Name, Database Name, Windows Authentication 
connstring = "Data Source=myserver;Initial Catalog=databasename;Integrated Security=True"
 
'SQL Staments
 
'SQL query = myQuery = "SQL Statment"
 
SQLStr = "SELECT * FROM tblQuestion"
 
SQLStr = "INSERT into tblQuestion(Name, Question) VALUES('Fred', 'How to use SQL?')"
 
SQLStr = "UPDATE tblQuestion SET Answer = 'Like this' Where Question = 'How to use SQL?'"
 
SQLStr = "DELETE FROM tblQuestion WHERE Question='How to use SQL?'"
 
'Write to SQL
 
Dim SQLConn As New SqlConnection() 'The SQL Connection
Dim SQLCmd As New SqlCommand() 'The SQL Command
 
SQLConn.ConnectionString = ConnString 'Set the Connection String
SQLConn.Open 'Open the connection
 
SQLCmd.Connection = SQLConn 'Sets the Connection to use with the SQL Command
SQLCmd.CommandText = SQLStr 'Sets the SQL String
SQLCmd.ExecuteNonQuery() 'Executes SQL Commands Non-Querys only
 
SQLConn.Close() 'Close the connection  
 
 
 
 
 
 
 
 
 
'Read from SQL
 
Dim SQLConn As New SqlConnection() 'The SQL Connection
Dim SQLCmd As New SqlCommand() 'The SQL Command
Dim SQLdr As SqlDataReader        'The Local Data Store
 
SQLConn.ConnectionString = ConnString 'Set the Connection String
SQLConn.Open 'Open the connection
 
SQLCmd.Connection = SQLConn 'Sets the Connection to use with the SQL Command
SQLCmd.CommandText = SQLStr 'Sets the SQL String
SQLdr = SQLCmd.ExecuteReader 'Gets Data
 
While dr.Read() 'While Data is Present        
      MsgBox(dr("Column Name")) 'Show data in a Message Box
End While
 
Loop While SQLdr.NextResult() 'Move to the Next Record
SQLdr.Close 'Close the SQLDataReader        
 
SQLConn.Close() 'Close the connection