What I'm trying to do is select data out of a single cell in a MSSQL table using the SQL statement "SELECT JobData2 FROM tblJobs Where JobID=1" which will return a string and set that string as a variable within my VB.NET program the purpose of this is so that when all the MSSQL data is dumped and uploaded it will get uploaded in /home/variable/data/ on the FTP server anywhere heres the majority of the code any help would be much appreciated.

Public Sub Work()

'GLOBAL VARIABLES FOR DATABASE DUMP AND FTP UPLOAD
Dim dbserver As String = dbserverbox.Text
Dim dbusername As String = dbusernamebox.Text
Dim dbpassword As String = dbpasswordbox.Text
Dim dbpath As String = dbpathbox.Text
Dim ftpserver As String = ftpserverbox.Text
Dim ftpusername As String = ftpusernamebox.Text
Dim ftppassword As String = ftpusernamebox.Text
Dim ftpclientid As String = ftpclientidbox.Text

'CONNECTS TO MSSQL AND DUMPS ALL DATABASE DATA TO 'dbpath'
ToolStrip.Text = "Connecting to Database."
Dim conn As New SqlConnection()
conn.ConnectionString = "Data Source=" & dbserver & ";Initial Catalog=master;Persist Security Info=True;User ID=" & dbusername & ";Password= " & dbpassword & ";Connection TimeOut=60;"

If Directory.Exists(dbpath) Then
Thread.Sleep(1)
Else
Directory.CreateDirectory(dbpath)
End If

Do While working = 0
Try
conn.Open()
Catch ex As SqlException
MsgBox("Failed to Connect")
ToolStrip.Text = "Failed to Connect."
Thread.abort()
End Try
If conn.State = 1 Then
Dim time As Integer = 3000
dumpcount = dumpcount + 1
ToolStrip.Text = "Connected to Database. Dumping data. Dump Count = " & dumpcount
Try

Dim command As SqlCommand = New SqlCommand("EDRData.dbo.ExportAlldata", conn)
command.CommandTimeout = time
command.CommandType = CommandType.StoredProcedure

command.Parameters.Add("@jobid", jobid)
command.Parameters.Add("@nonlogdata", "1")
command.Parameters.Add("@path", dbpath)
command.Parameters.Add("@user", dbusername)
command.Parameters.Add("@pwd", dbpassword)
command.Parameters.Add("@server", dbserver)

command.ExecuteNonQuery()
ToolStrip.Text = "Data Dump Completed."
Catch ex As SqlException
MsgBox(ex.Message)
End Try
Else
End If

conn.Close()

'END DATABASE DUMP CODE

'UPLOADS ALL DATA FILES IN 'dbpath' TO DATABASE SERVER

If Changer = 1 Then
ToolStrip.Text = "Connecting to FTP Server"
Dim ftp As FTPClient = Nothing
ftp = New FTPClient(ftpserver)
ftp.Login(ftpusername, ftppassword)
ftp.ConnectMode = FTPConnectMode.PASV
ftp.TransferType = FTPTransferType.ASCII
uploadcount = uploadcount + 1
ToolStrip.Text = "Uploading dumped data. Upload Count = " & uploadcount
Dim tbl() As String = {"tbldatastore.txt", "tblalarmlog.txt", "tblcomments.txt", "tbldatasources.txt", "tblfracreport.txt", "tblfracreportassemblyitems.txt", "tblfracreportcrew.txt", "tblfracreportfuel.txt", "tblfracreportquoteitems.txt", "tblfracreportrentals.txt", "tblfracstages.txt", "tbljobs.txt"}
Dim count As Integer = 0
Try
ftp.MkDir(ftpclientid)
Catch ex As Exception
End Try
For count = 0 To 11
ftp.Put(dbpath & "\" & tbl(count), ftpclientid & "\" & Changer & "-" & tbl(count))
Next
ftp.Quit()
Changer = 0

Else
ToolStrip.Text = "Connecting to FTP Server"
Dim ftp As FTPClient = Nothing
ftp = New FTPClient(ftpserver)
ftp.Login(ftpusername, ftppassword)
ftp.ConnectMode = FTPConnectMode.PASV
ftp.TransferType = FTPTransferType.ASCII
uploadcount = uploadcount + 1
ToolStrip.Text = "Uploading dumped data. Upload Count = " & uploadcount
Dim tbl() As String = {"tbldatastore.txt", "tblalarmlog.txt", "tblcomments.txt", "tbldatasources.txt", "tblfracreport.txt", "tblfracreportassemblyitems.txt", "tblfracreportcrew.txt", "tblfracreportfuel.txt", "tblfracreportquoteitems.txt", "tblfracreportrentals.txt", "tblfracstages.txt", "tbljobs.txt"}
Dim count As Integer = 0
Try
ftp.MkDir(ftpclientid)
Catch ex As Exception
End Try
For count = 0 To 11
ftp.Put(dbpath & "\" & tbl(count), ftpclientid & "\" & Changer & "-" & tbl(count))
Next
ftp.Quit()
Changer = 1
End If
ToolStrip.Text = "Connection pause, 1 minute."
Thread.sleep(60000)
'pauses the code for 1 minutes to make sure there will be no conflicts on the webpage

Loop
dumpcount = 0
uploadcount = 0
disconnect = 0
MsgBox("Connection aborted sucessfuly!")
ToolStrip.Text = "Connection aborted sucessfully!"

End Sub