Connect to SQL Server from LN 1

Function Update(rdate As String, rtime As String, rjudge As String, odate As String, otime As String) As Variant
	Dim con As New ODBCConnection
	Dim qry As New ODBCQuery
	Dim result As New ODBCResultSet
	
	Set qry.Connection = con
	Set result.Query = qry
	
	rdate = Format(rdate, "YYYYMMDD")
	rtime = Format(rtime, "HHMM")
	odate = Format(odate, "YYYYMMDD")
	otime = Format(otime, "HHMM")
	
	con.ConnectTo("iseries")	
	
	qry.SQL = "SELECT JUDCOD FROM CMLIB.CMPJUDNM WHERE JUDNAM = '" + rjudge + "'"
	result.Execute
	rjudge = result.GetValue("JUDCOD")
	     		' Update jury slot record to AS/400 jury calendaring
	If rjudge <> 5 And rjudge <> 15 Then
		qry.SQL = "SELECT CASNUM, CASPRE FROM CMLIB.CMPHERMF WHERE HERNGDAT = " + odate + " AND HERTIM = " + otime + " AND HERTYP = 'SJ' AND (STSCOD = 0 OR STSCOD = 1)"
	'qry.SQL = "SELECT CASNUM, CASPRE FROM Y2K.CMPHERMF WHERE HERNGDAT = " + odate + " AND HERTIM = " + otime + " AND HERTYP = 'SJ' AND (STSCOD = 0 OR STSCOD = 1)"
		result.Execute
		If result.NumRows = 0 Then
			qry.SQL = "UPDATE CMLIB.CMPSCHCT SET HERNGDAT = " + rdate + ", HERTIM = " + rtime + " WHERE JUDCOD = " + rjudge + _ 
			" AND HERNGDAT = " + odate + " AND HERTIM = " + otime + " AND HERTYP = 'SJ'"
			
		'qry.SQL = "UPDATE Y2K.CMPSCHCT SET HERNGDAT = " + rdate + ", HERTIM = " + rtime + " WHERE JUDCOD = " + rjudge + _ 
		'" AND HERNGDAT = " + odate + " AND HERTIM = " + otime + " AND HERTYP = 'SJ'"
			result.Execute	
			result.Close(DB_CLOSE)
			con.Disconnect
			Update = True
			
		End If
	Else
		qry.SQL = "UPDATE CVLIB.CVPSCHCTA SET DKTDATE = " + rdate + ", DKTTIM = " + rtime + " WHERE JUDCOD = " + rjudge + _ 
		" AND DKTDATE = " + odate + " AND DKTTIM = " + otime + " AND DKTTYP = 'SJ'"
	End If
	
	
End Function

Sub Click(Source As Button)
	
	Dim con As New ODBCConnection
	Dim qry As New ODBCQuery
	Dim result As New ODBCResultSet
	Dim MyResult As String
	
	Set qry.Connection = con
	Set result.Query = qry
	con.ConnectTo(SQLServerName)    
	
	qry.SQL = "SELECT CURRENCY FROM SQLServerDatabase.SourceTable"
	result.Execute
	myresult = result.GetValue("CURRENCY")
	Messagebox myresult
	
	result.Close(DB_CLOSE)
	con.Disconnect	
End Sub

Sub Click(Source As Button)
	
	Dim con As  New LCConnection  ("oledb")
	
	With con
		.Provider = "sqloledb" 
		.Server = "EUNLROTDB007"
		.Database = "MJU_Validation"
		.Metadata = "tbl_CURRENCY"
	End With
	
	On Error Resume Next
	con.Connect
	If Err = False Then	
		Messagebox "Successfully connected to SQLServer."
	Else
		Messagebox  "Connection failed with error " & Err & ": " & Error
	End If
	
End Sub

.UserID = "MyUserID" 'also tried "Domain\MyUserID"
		.Password = "MyWindowsPassword"

Sub Click(Source As Button)
	
	Dim ses As New LCSession
	ses.ClearStatus 	
	
	Dim con As  New LCConnection  ("oledb")
	
	With con
		.Provider = "SQLOLEDB" 
		.Server = "SQLServerName"
		.Database = "DatabaseName" 
		.Metadata = "tbl_CURRENCY"
		.Auth_Integrated = "SSPI"
	End With
	
	On Error Resume Next
	con.Connect
	If Err = False Then	
		Messagebox "Successfully connected to SQLServer."
	Else
		Messagebox  "Connection failed with error " & Err & ": " & Error
	End If
	
	Dim MyFldList As New LCFieldList
	Dim MyFld As LCField	
	Dim SQL As String
	Dim MyResult As String
	
	SQL = "SELECT CURRENCY FROM tbl_CURRENCY"
	con.Execute sql,myfldlist
	
	Set myfld = myfldlist.GetField(1)
	
	While (con.Fetch(myfldlist) > 0)
		myresult = myresult &  myfld.Text(0) & Chr(13)
	Wend
	
	Messagebox myresult
	
	con.Disconnect
	Set myfldlist = Nothing
	Set myfld = Nothing
	Set con = Nothing
	Set ses = Nothing
	
	
End Sub