Okay that's not so difficult ..

Code:
            Dim sqlConn As New SqlConnection([ConnectionString])
            Dim cmd As New SqlCommand
            Dim dr As SqlDataReader

            Try
                sqlConn.Open()
                With cmd
                    .Connection = sqlConn
                    .CommandText = "DELETE FROM [Table] WHERE [id] = @id"
                    .Parameters.AddWithValue("@id", id)
                    .Connection = sqlConn
                    dr = .ExecuteReader()

                End With

            Catch ex As Exception
                 'Log an error here.....
            End Try
Now you have a method ...

Gremmy...