Visual Basic

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!

ORA-01861: literal does not match format string

oracmd.CommandText = "INSERT INTO ASIS.TIMECLOCK_DATA(TD_CARDHOLDER_ID,TD_EVENT_DATE) " & _
    " VALUES  ('" + IBSSDR.Item("CARDHOLDERID").ToString + "',to_date('" + IBSSDR.Item("EVENTDATE") + "','YYYY-MM-DD HH24:MI:SS'))"
                        '

oracmd.CommandText = "INSERT INTO ASIS.TIMECLOCK_DATA(TD_CARDHOLDER_ID,TD_EVENT_DATE) " & _
                                   " VALUES  ('" + IBSSDR.Item("CARDHOLDERID").ToString + "',('" + IBSSDR.Item("EVENTDATE") + "'))"

ORA-01843: not a valid month