CLASS for ExecuteNonQuery in vb.net

CLASS   for  ExecuteNonQuery
 Dim con As SqlConnection = New SqlConnection()
    Dim com As SqlCommand = New SqlCommand()
    Dim da As SqlDataAdapter = New SqlDataAdapter()
    Dim constr As String = "Data Source=SERVER NAME \SQLEXPRESS;Initial Catalog=DBNAME;Integrated Security=True"
               
 Public Sub ExecuteQuery(ByVal str As String)
        If con.State = ConnectionState.Closed Then
            con.ConnectionString = constr
            con.Open()
        End If
        com.CommandText = str
        com.Connection = con
        da.SelectCommand = com
        com.ExecuteNonQuery()
        con.Close()
    End Sub