no data in my database

Hello i am a young programmer with a lot of pressure to deliver fast.
My problem is with a simple code i wrote to insert data into a database and it is runs thru but there is no data in my database . i dont know what could be wrong
Imports System.Data.SqlClient

Public Class Form1

Public Sub addNewRecords_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles addNewRecords.Click

If InsertData(assetcode.Text, fullName.Text, modelNo.Text, unitNo.Text, make.Text, yearOfManufacture.Text) = True Then
MessageBox.Show("Insert successful")

Else
MessageBox.Show("An error Has occured During Insertion")
End If

End Sub
Public Function InsertData(ByVal assetCode As Integer, ByVal fullName As String, ByVal modelNo As String, ByVal unitNo As String, ByVal make As String, ByVal yearOfManufacture As Date) As Boolean

Try
Dim strSql As String = "Insert Into Asset2(AssetCode,Fullname,ModelNo,UnitNo,Make,YearOfManufacture)Values(@AssetCode,@Fullname,@ModelNo,@UnitNo,@Make,@YearOfManufacture)"
Using cnn As New SqlConnection(My.Settings.KEngDatabase2ConnectionString)
Using cmd As New SqlCommand(strSql, cnn)
cmd.CommandType = CommandType.Text
Dim prm As SqlParameter

prm = New SqlParameter("@AssetCode", SqlDbType.Int)
prm.Value = assetCode
cmd.Parameters.Add(prm)

prm = New SqlParameter("@Fullname", SqlDbType.NVarChar, 50)
prm.Value = fullName
cmd.Parameters.Add(prm)

prm = New SqlParameter("@ModelNo", SqlDbType.NVarChar, 50)
prm.Value = modelNo
cmd.Parameters.Add(prm)

prm = New SqlParameter("@UnitNo", SqlDbType.NVarChar, 50)
prm.Value = unitNo
cmd.Parameters.Add(prm)

prm = New SqlParameter("@Make", SqlDbType.NVarChar, 50)
prm.Value = make
cmd.Parameters.Add(prm)

'Dim myString As String
'myString =

prm = New SqlParameter("@YearOfManufacture", SqlDbType.DateTime)
prm.Value = yearOfManufacture
cmd.Parameters.Add(prm)

cnn.Open()
cmd.ExecuteNonQuery()

End Using
End Using

Return True
Catch ex As Exception

Return (False)
End Try

End Function

End Class