try this instead...
The follwing assume that (in the table)
- Date is a Date
- Name is a string
- Score is numeric
- Win is numeric
myConnection = New SqlConnection("server=(local);database=Pitch;Trusted_Connection=yes")
Dim recordsAffected As Integer
Dim InsertCmd As String = "insert into PitchRecord (Date, Name, Score, Win) values (#" & TodayDate & #", '" & team1 & "'," & team1totpoints & " , 1)"
MyCommand = New SqlCommand(InsertCmd, myConnection)
recordsAffected = MyCommand.ExecuteNonQuery()