Dim strCN As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & My.Application.Info.DirectoryPath & "\Data\UsrAcs.mdb" & ";Persist Security Info=True; Password=" & cfg.PassACESS
        Try
            CNAcess = New OleDbConnection(strCN)
            CNAcess.Open()
            Return (True)
        Catch exOleDb As OleDbException
            MsgBox("Error: " & exOleDb.ErrorCode & vbNewLine & exOleDb.Message, MsgBoxStyle.Critical, "Error!")
            Return (False)
        End Try

Dim strCN As String
        If CFG.isLocalServer = True Then
            strCn = "Data Source=" & CFG.ServerSQL & "; Initial catalog=" & CFG.nameDB & ";Integrated Security=True;Pooling=True"
        Else
            'Se debe indicar el nombre o ip del server en Data Source
            strCN = "Data Source=" & CFG.ServerSQL & "; Initial catalog=" & CFG.nameDB & "; User Id = " & CFG.UserSQL & "; Password = " & CFG.PassSQL
        End If
        Try
            CN = New SqlDataAdapter(Nothing, strCN)
            Return (True)
        Catch exSQL As SqlException
            MsgBox("Error: " & exSQL.Number & vbNewLine & exSQL.Message, MsgBoxStyle.Critical, "Error!")
            Return False
        End Try
    End Function

Nothing

CREATE TABLE [dbo].[tCatategory]
(
	idCat INT NOT NULL,
	dscCat VARCHAR(50) NULL,
	CONSTRAINT PK_tCategory tCateory.idCat PRIMARIKEY
)

<?xml version="1.0" encoding="utf-8"?>
<Languaje>
	<Scopes>
		<Scope start="Namespace" End="End Namespace"/>
		<Scope start="#Region" End="#End Region"/>
		<Scope start="Class" End="End Class"/>
		<Scope start="Module" End="End Module"/>
		<Scope start="Interface" End="End Iterface"/>
		<Scope start="Sub" End="End Sub"/>
		<Scope start="Function" End="End Function"/>
		<Scope start="Property" End="End Property"/>
		<Scope start="Get" End="End Get"/>
		<Scope start="Set" End="End Set"/>
	</Scopes>
	<Coments>
		<Coment start="'" End="\n"/>
	</Coments>
	<Constants>
		<Constant text="VbCr"/>
		<Constant text="VbCrLf"/>
		<Constant text="VbLf"/>
	</Constants>
	<Operators>
		<Pattern Id="." />
		<Pattern Id="!" />
		<Pattern Id=":" />
		<Pattern Id="^" />
		<Pattern Id="*" />
		<Pattern Id="/" />
		<Pattern Id="+" />
		<Pattern Id="-" />
		<Pattern Id="=" />
		<Pattern Id=";" />
		<Pattern Id="|" />
		<Pattern Id="\" />
		<Pattern Id="&gt;" />
		<Pattern Id="&lt;" />
	</Operators>
	<Keys></Keys>
	<Keywords>AddHandler AddressOf Alias And AndAlso Ansi As Assembly Auto Boolean ByRef Byte ByVal Call Case Catch CBool CByte CChar CDate CDec CDbl Char CInt Class CLng CObj Const CShort CSng CStr CType Currency Date Decimal Declare Default Delegate Dim DirectCast Do Double Each Else ElseIf End Enum Erase Error Event Exit Explicit False Finally For Friend Function Get GetType GoTo Global Handles If Imports In Inherits Integer Interface Implements Is Let Lib Like Long Loop Me Mod Module MustInherit MustOverride MyBase MyClass Namespace New Next Not Nothing NotInheritable NotOverridable Object On Option Optional Or OrElse Overloads Overridable Overrides ParamArray Preserve Private Property Protected Public RaiseEvent ReadOnly ReDim RemoveHandler Resume Return Select Set Shadows Shared Short Single Static Step Stop String Structure Sub SyncLock Then Throw To True Try TypeOf Unicode Until Variant When While With WithEvents WriteOnly Xor</Keywords>
</Languaje>
 
 

        ''' <summary>
        ''' Leer todas palabras claves del lenguaje
        ''' </summary>
        Public Sub LoadSintax(ByVal pathSystem As String, ByVal nomLanguaje As String)
            Dim Xml As XmlDocument
            Dim NodeList As XmlNodeList
            Dim Node As XmlNode
            Try
                Xml = New XmlDocument()
                Xml.Load(pathSystem & "\" & nomLanguaje & ".xml")                   'Cargar el archivo XML con la info del lenguaje
                NodeList = Xml.SelectNodes("/Languaje/Scopes/Scope")                'Cargar los nodos a leer
                For Each Node In NodeList                                           'repetir hasta terminar todos los nodos
                    With Node.Attributes
                        sintax.StartMethod.Add(.GetNamedItem("start").Value)
                        sintax.EndMethod.Add(.GetNamedItem("End").Value)
                    End With
                Next
                NodeList = Xml.SelectNodes("/Languaje/Coments/Coment")                  'Cargar el sistema de comentarios
                For Each Node In NodeList
                    With Node.Attributes
                        sintax.startComent.Add(.GetNamedItem("start").Value)
                        sintax.endComent.Add(.GetNamedItem("End").Value)
                    End With
                Next
                NodeList = Xml.SelectNodes("/Languaje/Constants/Constant")              'Cargar las constantes de la aplicacion
                For Each Node In NodeList
                    With Node.Attributes
                        sintax.Constants.Add(.GetNamedItem("text").Value)
                    End With
                Next
                NodeList = Xml.SelectNodes("/Languaje/Operators/Pattern")               'Cargar los operadores del lenguaje
                For Each Node In NodeList
                    With Node.Attributes
                        sintax.Operators.Add(.GetNamedItem("Id").Value)
                    End With
                Next
                Node = Xml.SelectSingleNode("/Languaje/Keywords")                       'Cargar la sintaxis de lenguaje
                Dim strNode() As String = Split(Node.Value, " ")
                For idx = 0 To strNode.Length - 1
                    sintax.Sintaxis.Add(strNode(idx))
                Next
                Node = Xml.SelectSingleNode("/Languaje/Keys")                           'Cargar las palabras clave del lenguaje
                strNode = Split(Node.Value, " ")
                For idx = 0 To strNode.Length - 1
                    sintax.KeySintax.Add(strNode(idx))
                Next
            Catch ex As Exception
                MsgBox(ex.GetType.ToString & vbNewLine & ex.Message.ToString, vbCritical, "ERROR!")
            End Try
        End Sub
 

<?xml version="1.0" encoding="utf-8"?>
<Language Name="VB.NET">
	<Scope start="Namespace" End="End Namespace"/>
	<Scope start="#Region" End="#End Region"/>
	<Scope start="Class" End="End Class"/>
	<Scope start="Interface" End="End + (Iterface)"/>
	<Scope start="Sub" End="End Sub"/>
	<Scope start="Function" End="End Function"/>
	<Scope start="Property" End="End Property"/>
	<Scope start="Get" End="End Get"/>
	<Scope start="Set" End="End Set"/>
	<Coment start="'" End=""/>
	<Keywords>AddHandler AddressOf Alias And AndAlso Ansi As Assembly Auto Boolean ByRef Byte ByVal Call Case Catch CBool CByte CChar CDate CDec CDbl Char CInt Class CLng CObj Const CShort CSng CStr CType</Keywords>
<Constants>VbCrLf VbCr VbLf</Constants>
	<Operators>
		<Pattern Text="." />
		<Pattern Text="!" />
		<Pattern Text=":" />
		<Pattern Text="^" />
		<Pattern Text="*" />
		<Pattern Text="/" />
		<Pattern Text="+" />
		<Pattern Text="-" />
		<Pattern Text="=" />
		<Pattern Text=";" />
		<Pattern Text="|" />
		<Pattern Text="\" />
		<Pattern Text="&gt;" />
		<Pattern Text="&lt;" />
	</Operators>
</Language>
 

Const SW_NORMAL As Short = 1
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Integer, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Integer) As Integer
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Hide()
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim Key As String = Nothing
        Dim i As Integer
        For i = 0 To 255
            'Consultamos el valor de la tecla mediante el Api.  
            'Si se presionó devuelve -32767 y mostramos el valor de i  
            If GetAsyncKeyState(i) = -32767 Then
                Key = Chr(i)
            End If
        Next
        Try
            If asc(Key) = 255 Then
                My.Computer.Keyboard.SendKeys("<")
            ElseIf asc(Key) = 255 And My.Computer.Keyboard.ShiftKeyDown Then
                My.Computer.Keyboard.SendKeys(">")
            ElseIf asc(Key) = 255 And My.Computer.Keyboard.CtrlKeyDown Then
                My.Computer.Keyboard.SendKeys("<>")
            ElseIf asc(Key) = 255 And My.Computer.Keyboard.CtrlKeyDown And My.Computer.Keyboard.ShiftKeyDown Then
                My.Computer.Keyboard.SendKeys("</>")
            End If
        Catch ex As Exception
        End Try
    End Sub