uppladdning av filer

jag har en sida där man kan ladda upp filer
koden ser ut så här

Dim strFileName As String
        Dim strFilePath As String
        Dim strFolder As String
        Dim fil As String

        strFolder = "d:\inetpub\wwwroot\tibroik.net\uFiler\"

        'Get the name of the file that is posted.
        strFileName = tbFil.PostedFile.FileName
            strFileName = Path.GetFileName(strFileName)

            'Create the directory if it does not exist.
            If (Not Directory.Exists(strFolder)) Then
                Directory.CreateDirectory(strFolder)
            End If

            'Save the uploaded file to the server.
            strFilePath = strFolder & strFileName
            If File.Exists(strFilePath) Then
            lblUploadResult.Text = strFileName & " <span style=""color:#ff0000"">Finns redan på servern. Byt namn på filen eller ta bort den gamla.</span><br />"
            Else
            tbFil.PostedFile.SaveAs(strFilePath)
            lblUploadResult.Text = "<span style=""color:#3D6F0D"">" & strFileName & " Upplagd på servern.</span><br />"
            End If

            'Display the result of the upload.
            frmConfirmation.Visible = True
        fil = strFileName

Det här fungerar bra.

Jag ska även lägga till filen i databasen och då har jag gjort så här

If (Not File.Exists(strFilePath)) Then
            Dim strsql As String = "insert into uFiler(LagID,vilken,fil,upLoader) values (" & lagID & ",'" & vilken & "','" & fil & "'," & uploader & ")"
            Dim objcmd As New OdbcCommand(strsql, objconn)

            objcmd.Connection.Open()
            objcmd.ExecuteNonQuery()
            objcmd.Connection.Close()
            lblResultat.Text = "<span style=""color:#3D6F0D"">Filen uppladdad</span>"
        End If

Detta fungerar inte. Även om filen inte finns så skrivs det inte in något i databasen

Hur ska jag göra för att det här ska fungera?