Forms Data Controls :: Image Uploading To Database - Get Error On Running

I am uploading images to database....but only error that I am getting at this point when I run it is for.....

DataSource.InsertParameters.Add("MIMEType", MIMEType)

The error for the above line is Object not set to an instance of an Object look over the code an see if you can see what is wrong.

Protected Sub Button_Insert_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button_Insert.Click
'Make Sure a file has been successfully Uploaded
If FileUpload_Image1.PostedFile Is Nothing OrElse String.IsNullOrEmpty(FileUpload_Image1.PostedFile.FileName) OrElse FileUpload_Image1.PostedFile.InputStream Is Nothing Then
Label_ErrorMessage.Text = "Error"
Else
Label_ErrorMessage.Text = "No Error"
'Exit Sub
End If
'Make sure we are dealing with a JPG or GIF file
Dim extension As String = Path.GetExtension(FileUpload_Image1.PostedFile.FileName).ToLower()
Dim MIMEType As String = Nothing
Select Case extension
Case ".gif"
MIMEType = "Image/gif"
Case ".jpeg", ".jpe"
MIMEType = "Image/jpeg"
Case ".png"
MIMEType = "Image/png"
Case Else
Label_ErrorMessage.Text = "Invalid Type"
'Exit Sub
End Select
Dim DataSource As New SqlDataSource()
DataSource.ConnectionString = ConfigurationManager.ConnectionStrings("ConnectionString").ToString
DataSource.InsertCommandType = SqlDataSourceCommandType.Text
DataSource.InsertCommand = "Insert Into ClassifiedImages (Title, DateUploaded, MIMEType, ClassifiedId) Values (@Title, @DateUploaded, @MIMEType, @ClassifiedId)"
DataSource.InsertParameters.Add("Title", "Images For Classified Ad" & " " & Request.QueryString("ClassifiedId"))
DataSource.InsertParameters.Add("DateUploaded", DateTime.Now)
DataSource.InsertParameters.Add("MIMEType", MIMEType)
DataSource.InsertParameters.Add("ClassifiedId", Request.QueryString("ClassifiedId"))
Dim ImageBytes(FileUpload_Image1.PostedFile.InputStream.Length) As Byte
FileUpload_Image1.PostedFile.InputStream.Read(ImageBytes, 0, ImageBytes.Length)
DataSource.InsertParameters.Add("ImageData", ImageBytes.ToString)
Dim RowsAffected As Integer = 0
Try
RowsAffected = DataSource.Insert()
Catch ex As Exception
Response.Redirect("AddImagesProblem.aspx")
End Try
If RowsAffected <> 1 Then
Response.Redirect("AddImagesProblem.aspx")
Else
Response.Redirect("AddImagesSuccess.aspx")
End If
End Sub