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!

Thanks for all the help, and I will reference all of it. My issue was null values...

var q =
from a1 in dt_Jobs.AsEnumerable()
orderby a1.Field("City")
where (a1.Field("City") != null)
select a1.Field("City");
var lstCity = q.Distinct().ToList();
cboCity.DataSource = lstCity;

I think I got it, Thanks for the help!

var q =
from a1 in dt_Jobs.AsEnumerable()
orderby a1.Field("City")
where (a1.Field("City") != null)
select a1.Field("City");
var lstCity = q.Distinct().ToList();
cboCity.DataSource = lstCity;

Sorry for the confusion, there are errors. Exception thrown: 'System.FormatException' in mscorlib.dll Exception thrown: 'System.NullReferenceException' in ResourcePlanningC2.exe Exception thrown: 'System.InvalidCastException' in mscorlib.dll Exception thrown: 'System.NullReferenceException' in ResourcePlanningC2.exe Exception thrown: 'System.FormatException' in mscorlib.dll Exception thrown: 'System.NullReferenceException' in ResourcePlanningC2.exe Exception thrown: 'System.NullReferenceException' in ResourcePlanningC2.exe Exception thrown: 'System.FormatException' in mscorlib.dll The program '[12772] ResourcePlanningC2.exe' has exited with code -1 (0xffffffff). It must be hanging on some null values. Is there an easy way to handle this?

I am trying to set the datasources for comboboxes. There is a datasource in the first, but not in the second. If I flip them around, I get the opposite effect.

Hello: I simply want to write multiple queries to assign information.

var q =
from a1 in dt_Jobs.AsEnumerable()
orderby a1.Field("Customer")
select a1.Field("Customer");
var lstCustomer = q.Distinct().ToList();
cboCustomer.DataSource = lstCustomer;

q =
from a1 in dt_Jobs.AsEnumerable()
orderby a1.Field("City")
select a1.Field("City");
var lstCity = q.Distinct().ToList();
cboCity.DataSource = lstCity;

The first block works, the second fails. How can I achieve something like this?? Thanks!

Hello: I simply want to write multiple queries to assign information.

            var q =
                from a1 in dt\_Jobs.AsEnumerable()
                orderby a1.Field("Customer")
                select a1.Field("Customer");
            var lstCustomer = q.Distinct().ToList();
            cboCustomer.DataSource = lstCustomer;

            q =
                from a1 in dt\_Jobs.AsEnumerable()
                orderby a1.Field("City")
                select a1.Field("City");
            var lstCity = q.Distinct().ToList();
            cboCity.DataSource = lstCity;

The first block works, the second fails. How can I achieve something like this?? Thanks!