Visual Basic.NET - No se controlo SqlException

Hola!!
Estoy guardando e la base de datos de esta forma

Dim bulkCopy As New System.Data.SqlClient.SqlBulkCopy("Data Source=MD-VCASTILLO;Initial Catalog=CDR;Integrated Security=True")
bulkCopy.DestinationTableName = "V4NORFAC"
bulkCopy.WriteToServer(Me.CDRDataSet1.Tables(0).GetChanges(DataRowState.Added))

pero me aparece el siguiente error despues de que ha pasado algun tiempo
No se controlo SqlException
Valor de tiempo de espera caducado. El período de tiempo de espera caducó antes de completar la operación o el servidor no responde.
Valor de tiempo de espera caducado. El período de tiempo de espera caducó antes de completar la operación o el servidor no responde.

Como puedo solucionarlo??

Eso es porque esta tardando mucho para conectarse a la BD como tienes la conexión?, también puede ser por la forma que guarda los datos.
Ese es todo el codigo para la bd y para guardar?.

Este es el codigo para la conexion(abrirbase)
Try
sqlcon = New SqlConnection("Data Source=MO;Initial Catalog=CR;Integrated Security=True; Timeout=120")
sqlcon.Open()
Catch ex As Exception
MsgBox(ex.Message.ToString)
MsgBox(ex.InnerException.ToString)
MessageBox.Show("ERROR CONECTANDO A LA BD", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try

y este es el resto del codigo
Dim lector As TextFieldParser
Dim linea As String()
With OpenFileDialog1
.FileName = "C:\.TXT "
.Filter = "Archivos de texto *.txt|*.txt|Todos *.*|*.*"
.ShowDialog()
If .FileName <> "C:\.TXT " Then
Label1.Text = OpenFileDialog1.FileName
lector = New TextFieldParser(OpenFileDialog1.FileName)
lector.TextFieldType = FieldType.Delimited
lector.SetDelimiters(",")
While Not lector.EndOfData
Try
linea = lector.ReadFields()
Me.CRDataSet1.V4NORFAC.Rows.Add(linea)
Catch ex As MalformedLineException
MsgBox("Linea " & ex.Message)
End Try
End While
abrirbase()

Dim bulkCopy As New System.Data.SqlClient.SqlBulkCopy("Data Source=MO;
Initial Catalog=CR;Integrated Security=True; Timeout=300")
bulkCopy.DestinationTableName = "V4NORFAC"
bulkCopy.BulkCopyTimeout = 900
bulkCopy.WriteToServer(Me.CRDataSet1.Tables(0).GetChanges(DataRowState.Added))
MsgBox("Archivo cargado exitosamente")
Else
MsgBox("Ningun Archivo seleccionado para leer")
End If

End With

agradeceria mucho la ayuda!!

Prueba sacandole Timeout, no le pongas nada.