Dim con As OleDb.OleDbConnection = New _
OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source = " & _
Server & "\Database.mdb")
con.Open()
Dim cmd As OleDb.OleDbCommand = New _
OleDb.OleDbCommand(str, con)
Dim da As New OleDb.OleDbDataAdapter(cmd)
Dim ds As New DataSet()
da.Fill(ds, "DatabaseName")
Dim dr As DataRow
For Each dr In ds.Tables(0).Rows
If dr(1).ToString.Contains(arg(1)) Then
Else
Console.WriteLine("")
Exit For
End If
Next
using namespace System::Data::OleDb;
OleDbConnection ^ myConnection = gcnew OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source = "+ server + "\\Database.mdb");
try{
//Open Connection
myConnection->Open();
OleDbCommand ^ cmd = gcnew OleDbCommand(str, myConnection);
OleDbDataAdapter ^ adapter = gcnew OleDbDataAdapter(cmd);
DataSet ^ ds = gcnew DataSet();
adapter->Fill(ds,"DatabaseName");
DataRow ^ dr;
for each(dr in ds->Tables[0]->Rows){
if (dr[1]->ToString->Contains(argv[1])){
}
}
}catch(OleDbException ^ ex){
Console::WriteLine(ex->Message);
system("PAUSE");
}

so you need those in there
I get the following error: 

FileStream ^FS(gcnew FileStream(DownloadLocation,FileMode::Create));
String ^DownloadLocation("C:\\Users\\Kurt\\Desktop");