Using Command Objects with Input and Output parameters in VB
	...
	Dim adocomm As New ADODB.Command
	Dim adopara As New ADODB.Parameter
	adocomm.ActiveConnection = MyCon
	adocomm.CommandType = adCmdStoredProc
	adocomm.CommandText = "sp_erase_personalid"
	' Creating and appending the input parameter to the command object
	Set adopara = adocomm.CreateParameter("@Personal_id", adInteger, adParamInput)
	adopara.Value = "17"
	adocomm.Parameters.Append adopara
	' Creating and appending the ouput parameter to the command object
	Set adopara = adocomm.CreateParameter("@output_id", adInteger, adParamOutput)
	adocomm.Parameters.Append adopara
	' Executing the store procedure
	adocomm.Execute
	' Retreiving values from the output parameters
	MsgBox adocomm.Parameters("@output_id").Value
	...

	Create runtime Controls in VB
	Private Sub Form_Load()
	Load Timer1(1)
	End Sub

	Adding data to BLOB fields using ADO in VB
	...
	adorecs.Fields("blobfield").AppendChunk (Data)
	...

	Reading data from BLOB fields using ADO in VB
	...
	adorecs.Fields("blobfield").GetChunk (adorecs.Fields("blobfield").ActualSize)
	...

	Cloning a XML Node in VB
	...
	Dim L_XMLNode As IXMLDOMNode
	Dim L_CloneXMLNodeFrom As DOMDocument
	Set L_XMLNode = L_CloneXMLNodeFrom.cloneNode(True)
	...

	Creating an HTML from XML And XSL in VB
	...
	Dim L_XMLDoc As DOMDocument
	Dim L_XSLDoc As DOMDocument
	Dim L_HTMLDoc As DOMDocument
	L_HTMLDoc = L_XMLDoc.transformNode(L_XSLDoc)
	...