ADO.NET command timeout

timeout.fsx

open System.Data
open System.Data.SqlClient
    
 
let cn = new SqlConnection("Data Source=;Initial Catalog=;Persist Security Info=True;User ID=;Password=")
cn.Open()
let command = new SqlCommand("WAITFOR DELAY '00:00:04';select * from sys.tables", cn)
command.CommandTimeout <- 1 // will break
command.ExecuteNonQuery() |> ignore
cn.Close()
    
printfn "done"