Look at another spreadsheet and populate values

I am wondering if this is possible... not sure how to categorize it.

I have an excel spreadsheet where on one tab it lists students and their courses.

Sheet 1
Student ID Program Start Date Course ID
1234567 4533
1234567 4688
1234567 4800
1234567 4300
2233445 1234
2233445 3434
2233445 4300


On another excel spreadsheet I have the same students but only one entry and listed with different values.

Sheet 2
Student ID Program Start Date Active
1234567 2/2/2015 0
2233445 5/2/2014 1


Is it possible to either write a macro or some sort of formula to review the data on Sheet 2 and then populate columns in Sheet 1 (Program Start Date) depending on what it shows on Sheet 2?

Like for instance for 1234567 the program start date would be 2/2/2015 on sheet 1; 2233445 - Program Start Date = 5/2/2014 and so on.

Is it possible to write this in a macro?

I"m getting a Run-time error '13 Type mismatch error for the VBA code below:

Sub ProgStartDtFill()
'
' Maria Lindquist
' 02/15/2016
' This macro will match up the Student IDs and populate the Program Start Date as shown on StudentInfo Sheet
'
Range("D2").Select
Dim i As Long
For i = 2 To Sheets("CrseData").Cells(Rows.Count, "A").End(xlUp).Row
Sheets("CrseData").Cells(i, "D").Value = Application.Evaluate("=VLOOKUP(" & Sheets("CrseData").Cells(i, "D").Value & ",StudentInfo!A2:AD2,4,0)")
Next i
End Sub

In Column D of CrseData it puts #N/A all the way down.