Converting Sub to Function

Hi All

 I would very much like to convert a number of my subs that interact with my database into functions that i can then store in a class but i am unsure about 1 part

If i have the following as an example sub
Public Sub Insert()
Dim ConnString As String = GetConnString()
Dim SqlString As String = "Insert Into Contacts (FirstName, LastName) Values (@FirstName,@LastName)"
Using conn As New OleDbConnection(ConnString)
Using cmd As New OleDbCommand(SqlString, conn)
cmd.CommandType = CommandType.Text
cmd.Parameters.AddWithValue("@FirstName", txtFirstName.Text)
cmd.Parameters.AddWithValue( ...