Visual Basic

Imports System
Imports System.IO
Imports System.IO.Ports
Imports System.Text
Imports System.Threading


Public Class Form1

    
    Dim value As Byte
    
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    SerialPort1.Encoding = System.Text.Encoding.GetEncoding(1252)
    SerialPort1.Open()

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        SerialPort1.Close()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim array(6) As Byte
        array(0) = &H3
        array(1) = &H1
        array(2) = &H1
        array(3) = &HA4
        array(4) = &HA5
        array(5) = &HB2
        SerialPort1.Write(array, 0, array.Length)
        Label1.Text = ""
      
        For i = 0 To 10
            value = SerialPort1.ReadByte()
            Label1.Text += value.ToString("x2") + " "
        Next
    End Sub

03 01 01 A4 A5 B2 00 00 03 00 FC

03 01 01 A4 A5 B2 01 00 03 00 FC

Compile error:
User-defined type no defined

What causes this error?

Player.name = "Player" & +1

Public Class Form1
    Private WithEvents Player As AxAXVLC.AxVLCPlugin2
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Player = New AxAXVLC.AxVLCPlugin2
        FlowLayoutPanel1.Controls.Add(Player)
        Player.playlist.add("VideoUrl")
        Player.playlist.play()
        'each click adds a new player but the name is "Player" for all players not like "Player1, Player2..."

    End Sub

Module Module1

    Sub Main()
        Console.WriteLine("Start of Run")
        Run()
        Console.WriteLine("End of Run")
        Console.ReadLine()
    End Sub

    Async Sub Run()
        Dim arg = "LEET 1337"
        Await Threading.Tasks.Task.Run(Function() Foo(arg)) ' This line fails...
    End Sub

    Sub Foo(ByVal asdf As String)
        Console.WriteLine("Start of Foo")
        Threading.Thread.Sleep(5000)
        Console.WriteLine(asdf)
        Console.WriteLine("End of Foo")
    End Sub

End Module

using System;
using System.Threading;
using System.Threading.Tasks;

namespace ConsoleApplication
{
    class Program
    {
        static void Main(string[] args)
        {
            Console.WriteLine("Start Run");
            Run();
            Console.WriteLine("End of Run");
            Console.ReadLine();
        }

        static async void Run()
        {
            var arg = "LEET 1337";
            await Task.Run(() => Foo(arg)); // This line works.
        }

        static void Foo(string asdf)
        {
            Console.WriteLine("Start Foo");
            Thread.Sleep(5000);
            Console.WriteLine(asdf);
            Console.WriteLine("End of Foo");
        }
    }
}

For Each proc As Process In Process.GetProcesses
    If proc.ProcessName.Contains("testApp") = True Then
        Debug.WriteLine("application is running")
    End If
Next

For Each proc As Process In Process.GetProcesses
     If proc.ProcessName.Contains("testApp") = True Then
         Dim proccount As String = proc.ProcessName.Contains("testApp")
         If proccount.Count >= 1 Then
             Debug.WriteLine("application is already running")
         End If
     End If
 Next

If Browser.CanExecuteJavascriptInMainFrame Then 
'code here
End If

If Browser.IsLoading Then
'code here
End If

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Browser = New ChromiumWebBrowser("https://example.com")
        Form1.Panel1.Controls.Add(Browser)
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If Browser.IsLoading = True Then
            Debug.WriteLine("true")
        Else
            Dim test As Task(Of JavascriptResponse) = Browser.EvaluateScriptAsync("document.getElementsByTagName('h1')[0].innerText")
            Debug.WriteLine(test.Result.Result)
            Timer1.Enabled = False
        End If
    End Sub

Hello:
I am trying to connection using old school VBA.

This works in VBA!
connectionString = "Provider=sqloledb;Data Source=w2012;Initial Catalog=M1_SU;User Id=m1view;Password=connect2m1;"

This works in VB.NET, but says the server does not exist or access is denied...
"Provider=sqloledb;Data Source=sage;Initial Catalog=JobSheet;persist security info=True;Integrated Security=SSPI;"

Why would the server be available in VB.NET but not in VBA?

Here's the complete code.  I must be missing something..
Sub GetJobs_Click()
    Dim connectionString As String
    ' connectionString = "Provider=sqloledb;Data Source=w2012;Initial Catalog=M1_SU;User Id=m1view;Password=connect2m1;"
    connectionString = "Provider=sqloledb;Data Source=sage;Initial Catalog=JobSheet;persist security info=True;Integrated Security=SSPI;"
    Dim cn As ADODB.Connection
    Set cn = New ADODB.Connection
        
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
        
    Dim sql As String
    sql = "SELECT * From [JobSheet].[dbo].[JobInfo] ORDER BY JobNo "
    MsgBox (sql)
        
    cn.connectionString = connectionString
    [COLOR="#FF0000"]cn.Open ' ERROR'S HERE[/COLOR]
        
    rs.Open sql, cn, adOpenKeyset, adLockReadOnly, adCmdText
    rs.MoveFirst
    Do While Not rs.EOF
        MsgBox (rs.Fields("JobNo"))
        rs.MoveNext

    Loop

    rs.Close
    Set rs = Nothing
        
    cn.Close
    Set cn = Nothing

End Sub


Thanks!