Insert into SQL Database

Hej

Jeg er igang med et projekt hvor jeg skal indsætte noget i en database, men kan ikke få det til at virke.

Dim connstr As String = "Data Source=.\\SQLEXPRESS;AttachDbFilename=|DataDirectory|\\App_Data\\PumpeDatabase.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"
        Dim sql As String = "INSERT INTO PumpeDataTabel(Active,StartTime,Endtime) VALUES(@Active,@StartTime, NULL)"
        Dim conn As SqlClient.SqlConnection = New SqlClient.SqlConnection(connstr)
        conn.Open()
        Dim command As SqlClient.SqlCommand = New SqlClient.SqlCommand(sql, conn)
        command.Parameters.Add("@Active", SqlDbType.Bit).Value = True
        command.Parameters.Add("@StartTime", SqlDbType.DateTime).Value = Date.Now
        command.ExecuteNonQuery()
        conn.Close()

Nå jeg køre denne kode kommer der ikke nogen fejl, men der bliver heller ikke indsat noget i min database. Hvad gør jeg galt ?